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Abstract 

This  thesis  discusses  the  use  of  the  multiresolution  representation  and  Radial  Basis 
Function  (RBF)  neural  networks  to  segment  both  FLIR  and  SAR  imagery.  The  multires¬ 
olution  approximation  coefficients  are  used  as  features  into  the  RBF  network  which  learns 
to  distinguish  between  different  cultural  and  natural  regions  or  objects.  The  wavelets  used 
are  Mallat’s  spline  wavelet  and  Daubechies’  compactly  supported  wavelets.  Additionally, 
this  thesis  provides  an  explanation  of  wavelets  in  a  tutorial  manner.  It  introduces  wavelet 
theory  and  discusses  two  different  approaches  to  generating  the  multiresolution  or  wavelet 
representation.  > 


IMAGE  SEGMENTATION 


USING 

AFFINE  WAVELETS 

L  Introduction 

1.1  Introduction 

Application  of  the  wavelet  transform  in  the  pattern  recognition  process  has  shown 
promising  results,  in  particular,  the  wavelet’s  use  in  processing  images.  This  work  pursues 
the  development  of  a  system  to  robustly  segment  Synthetic  Aperture  Radar  (SAR)  images 
and  Forward  Looking  Infrared  (FLIR)  images  using  orthonormal  wavelets. 

1.2  Statement  oj  Problem 

A  system  which  can  robustly  segment  SAR  and  FLIR  imagery  does  not  yet  exist.  This 
work  explores  the  ability  of  a  rnultiresolution  representation  to  segment  natural  and  cultural 
features  in  SAPv,  and  FLIR  images.  The  wavelet  transform  will  be  the  primary  mathematical 
basis  for  the  decomposition  of  images,  while  the  Multiresolution  Deepmposition  will  be  the 
main  analytical  tool. 

1.3  Background 

“In  1830  about  300  technical  and  scientific  journals  were  in  circulation.  Today  there 
are  over  60,000  journals  and  2.5  million  articles  per  year  throughout  the  world  in  over 
60  languages.” [35:2]  A  growing  problem  each  passing  year  is  our  inability  to  manage  the 
abundance  of  information  we  produce.  One  approach  to  this  problem  is  the  automation  of 
data  processing  systems  with  the  ability  to  accomplish  pattern  recogi.  ition. 

There  are  many  systems  in  existence  today  which  can  identify  or  classify,  with  a  high 
degree  of  accuracy,  individual  non-connected  elements.  One  such  system  can  recognize  indi¬ 
vidually  printed  numbers,  another  system  can  recognize  non-connected  words  (words  spoken 
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one  at  a  time  with  an  accentuated  pause  between  each  word).  Although  these  results  are 
impressive,  in  practice  most  pattern  recognition  tasks  require  the  recognition  of  an  element 
which  is  connected  to  other  elements.  One  of  the  unsolved  problems  in  pattern  recognition 
is  how  to  isolate  or  segment  the  elements  of  interest  from  other  elements  of  interest  or  from 
the  rest  of  the  “background”  clutter.  A  reliable  segmentation  system  in  conjunction  with  an 
existing  claissification  system  could  be  employed  in  many  applications.  Such  a  system  in  the 
US  Postal  Service  would  be  able  to  process  nearly  all  hand- written  addresses  automatically, 
without  resorting  to  a  human  operator.  Unfo.rtunately  no  such  system  is  yet  fully  capable 
of  this  segmentation  task  and  much  of  cur  mail  today  is  still  processed  by  a  human  operator 
as  far  as  segmenting  the  individual  letters  and  numbers  of  the  addresses  on  the  envelope  is 
concerned. 

The  United  States  Air  Force  is  today  pursuing  research  in  the  area  of  image  processing 
with  the  goal  of  reliably  detecting,  recognizing,  and  classifying  targets.  The  fundamental 
problem  with  target  detection  is  segmentation  or  finding  possible  targets  in  highly  cluttered 
;mages[2;2]. 


The  concept  of  separating  one  object  from  another  is  as  common  to  humans 
as  breathing.  We  constantly  manipulate  our  environment  to  suit  our  needs, 
whether  we  physically  change  the  environment  (actually  move  or  remove  objects 
within  our  environment)  or  simply  change  the  way  we  perceive,  or  observe  the 
environment. 

Often,  we  cannot  physically  alter  the  environment  in  which  a  target  resides, 
short  of  destroying  the  target  and  its  surroundings.  Therefore,  we  attempt  to 
observe  the  target  in  its  surroundings.  We  must  separate  the  target  from  the 
rest  of  the  image  to  observe  or  detect  the  target.  Distinguishing  targets  from 
background  is  referred  to  as  segmentation. [2:2] 

This  thesis  will  justify  further  application  of  wavelets  in  the  process  of  segmenting 
images,  specifically  segmenting  between  natural  items  such  as  trees,  fields,  and  shadows,  in 
SAR  imagery  as  well  £ls  man  made  objects  in  FLIR  imagery. 


1.4  Scope 

This  research  will  show  that  cluttered  imagery  can  be  segmented  usinf  elements  of 
a  rnultirerolution  representation.  This  multiresolution  representation  is  produced  with  re¬ 
spect  to  dilations  and  translations  of  a  mother  wavelet  as  is  the  case  when  using  an  affine 
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wavelet  transform.  The  resulting  coefficients  are  then  processed  using  standard  thresholding 
techniques  and  neural  network  techniques  to  accomplish  the  segmentation. 

This  research  will  not  define  the  theoretical  limits  on  the  use  of  the  wavelet  nor  will  it 
attempt  to  show  the  use  of  all  possible  combinations  of  “mother  wavelets”.  This  study  uses 
a  very  small  subset  of  possible  “mother  wavelets”  and  demonstrates  their  usefulness  in  the 
segmentation  of  images. 


1.5  Smnmary  of  Current  Knowledge 


1.5.  t  Pattern  Recognition  and  Segmentation  Pattern  recognition  of  images  is,  in  gen¬ 
eral,  composed  of  three  steps.  First,  images  are  segmented  into  regions  of  interest.  Second, 
features  are  extracted  from  these  regions  of  interest.  These  features  might  include  such 
things  as  length  to  width  ratios  of  the  regions  or  perhaps  the  average  pixel  value  of ..  region. 
The  third  and  final  step  i;.  to  classify  these  regions  of  interest  into  some  predetermined  cate¬ 
gories.  These  categories  could  be  tanks,  trucks,  background  clutter  or  some  other  appropriate 
category  depending  on  the  types  of  images  being  used. 


Segmentation  is  the  process  of  subdividing  an  image  into  its  constituent  parts  or  ob¬ 
jects.  Segmentation  is  one  of  the  most  important  steps  in  automated  image  analysis.  It  is 
at  this  step  that  objects  or  other  entities  of  interest  are  extracted  from  an  image  for  further 
processing  such  as  description  and  recognition  [15:331]. 


Algorithms  for  segmentation  are  generally  based  on  one  of  two  basic  properties  of  gray 
values:  discontinuity  and  similarity.  Discontinuity  algorithms  partition  an  image  based  on 
abrupt  changes  in  gray  scale.  The  approach  of  similarity  algorithms  is  aimed  at  thresholding, 
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algorithms  for  image  segmentation.  Albert  LTfomme  used  Gabor  coefficients  [20]  and  Joseph 
Brickey  used  fractal  dimension  to  [3]  segment  high  resolution  SAR  imagery  in  their  thesis 
research.  This  thesis  demonstrates  that  segmentation  of  both  SAR  and  FLIR  imagery  can 
be  accomplished  using  the  affine  wavelet  coefficients. 


1,6  General  Approach 

The  proposed  system  is  composed  of  three  stages  of  processing.  The  first  stage  gen¬ 
erates  a  inultiiesolution  representation  of  a  SAR  image.  The  second  stage  extracts  features 
from  a  particular  level  of  the  multiresolution  representation.  The  third  stage  used  a  radial 


basis  function  artificial  neural  network,  which  accomplishes  the  segmentation  based  on  the 
multiresolution  features. 

1.7  Objectives 

The  specific  objectives  of  this  research  are  to  answer  the  following  questions: 

•  How  is  the  Wavelet  transform  related  to  other  types  of  signal  or  image  analysis  tools? 

•  How  is  the  Multiresolution  Representation  obtained  or  calculated  for  a  signal  or  image? 

•  Do  the  multiresolution  coefficients  provide  values  which  can  be  used  to  separate  natural 
and  man-made  regions  within  both  SAR  and  FLIR  imagery? 

•  Which  set  of  coefficients  should  be  used  as  the  features? 

•  Can  the  Radial  Basis  Function  (RBF)  artificial  neural  network  be  trained,  to  au¬ 
tonomously  segment  SAR  and  FLIR  imagery  using  the  wavelet  coefficients  as  features? 

•  Will  the  RBF  neural  network  segmentation  using  the  multiresolution  coefficients  gen¬ 
eralize  to  all  areas  of  an  image?  If  so,  will  it  also  generalize  to  additional  images  not 
used  in  network  training? 

1.8  Materials  and  Equipment 

The  image  processing  equipment  consists  of  SPARC  stations  which  currently  reside  at 
the  Model  Based  Vision  (MBV)  Laboratory  and  the  those  at  AFIT  on  Wright  Patterson 
AFB.  The  SAR  and  FLIR  imagery  is  supplied  by  the  same  lab.  The  numerical  analysis 
support  is  provided  by  a  member  of  the  AFIT  Department  of  Mathematics  and  Statistics. 

1.9  Sequence  of  Presentation 

Chapter  1  is  a  genera!  introduction  to  the  problem  and  an  approach  to  its  solution. 
Chapter  2  provides  a  review  of  literature  which  is  relevant  to  segmentation,  wavelets,  and 
radial  basis  function  artificial  neural  networks.  Chapter  3  is  a  tutorial  on  the  Wavelet 
transform  and  the  multiresolution  representation.  Chapter  4  explains  the  algorithm  used 
to  generate  the  multiresolution  approximations  and  contains  some  pictorial  examples  of  the 
niulti>esolution  api)roximations  of  various  images.  Note  that  Chapters  3  and  4  were  jointly 
written  with  Capt  John  (Stewart)  Laing  [19]  and  it  is  highly  recommended  that  the  reader 
become  very  familiar  with  chapters  3  and  4  before  proceeding  on  to  cljapter  5.  This  provides 
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a  common  vocabulary  whkh  makes  Chapter  5  on  experimental  application  and  results  more 
understandable.  Chapter  6  contains  conclusions  regarding  this  research  and  recommendation 
for  further  research  in  this  area 
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IL  Literature  Review 


2.1  Introduction 

This  literature  review  is  undertaken  to  show  that  the  wavelet  transform  is  an  excellent 
ongoing  area  of  research  as  it  relates  to  the  pattern  recognition  process  and,  in  particular, 
to  image  segmentation.  Additionally,  it  demonstrates  the  utility  of  radial  basis  function 
artificial  neural  networks  in  the  area  of  pattern  recognition. 

2.2  Scope  of  Reviexo 

This  review  covers  a  small  subset  of  the  available  literature.  It  provides  simple  justifi¬ 
cation  for  research  on  the  wavelet  transform  as  a  means  of  segmenting  images. 

2.3  Background 

FaUerii  recognition  is  in  general  composed  of  three  steps.  First,  images  are  segmented 
into  regions  of  interest.  Second,  features  are  extracted  from  these  regions  of  interest  (these 
features  might  include  such  things  as  length  to  width  ratios  of  the  regions  or  perhaps  the 
average  pixel  value  of  a  region.).  The  final  step  is  classification  of  the  regions  of  interest  into 
some  predetermined  categories.  These  categories  could  be  tanks,  trucks,  background  clutter 
or  some  other  appropriate  category  depending  on  the  types  of  images  being  used. 

The  inherent  difficulty  of  these  three  tasks  has  caused  many  researchers  to  look  to  the 
biologiccil  visual!  system  6.-s  €l  nio<lei.  This  is  due  to  the  fs-ct  ths-t  si)  gener«I  hiolo^ics,!  yisu.s.1 
systems  (human,  cat,  dog,  spider,  etc)  are  vastly  superior  to  any  constructed  by  man,  thus 
far.  The  study  of  mammalian  visual  systems  has  provided  insight  into  the  decomposition 
and  processing  of  visual  stimuli.  A  great  deal  of  recent  research  has  been  conducted  to 
artificially  mimic  the  biologically  based  decomposition  and  jirocessing. 

One  numerical  method  which  can  be  employed  in  the  pattern  recognition  process  which 
may  show  some  promise  is  based  on  the  discrete  wavelet  transform.  The  discrete  wavelet 
transform  is  a  representation  of  an  arbitrary  function  having  finite  energy  as  the  superposition 
of  a  set  of  functions  known  as  wavelets[l;2297]. 
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2. 4  Method  of  treatment  and  organization 

This  literature  review  is  organized  into  three  specific  areas  of  research  as  they  relate 
to  pattern  recognition  and  image  processing  in  general.  The  first  area  is  biological  research, 
which  has  been  used  as  the  bjisis  for  some  image  processing  approaches.  This  includes  the  use 
of  Gabor  functions,  tis  they  have  been  used  in  image  coding  and  pattern  classificatioi  The 
second  area  deals  with  the  wavelet  transform  and  its  usage,  thus  far,  in  pattern  recognition. 
The  final  area  will  cover  the  use  of  artificial  neural  networks  in  pattern  classification  and,  in 
particular,  the  use  of  radial  basis  functions. 

5.5  Neurophysiological  Research 

2.5.1  Theories  on  Building  Perception  David  Hubei  has  shown  that  the  visual  cortex 
is  functionally  subdivided  into  columns  of  neurons  which  respond  to  similar  input.  He  has 
also  shown  that  different  neurons  in  the  visual  cortex  respond  to  different  types  of  input 
stimulus  [17]. 

David  Hubei’s  exploration  of  the  “  transformation  of  the  retinal  image  into  a  percep¬ 
tion”  [17:54]  was  carried  out  on  the  brains  of  awiult  cats.  The  cats  were  anesthetized  and 
faced  toward  a  wide  screen  1.5  meters  away.  On  the  screen  various  patterns  of  white  light 
were  projected.  As  a  pattern  of  light  appeared  a  microelectrode  was  inserted  into  a  portion 
of  the  cat’s  visual  system.  This  provided  a  method  of  recording  the  response  of  individual 
neurons  to  a  particular  light  pattern.  The  correlation  or  comparison  of  the  light  patterns 
and  the  neuronal  output  gave  rise  to  the  following  generalizations  about  the  mammalian 
visual  system. 

•  Orientation  is  an  important  factor  to  neuronal  response.  Some  of  the  neurons  re¬ 
sponded  only  to  lines  at  certain  angles  as  the  cat  faced  the  screen.  Additionally,  a 
large  number  of  neurons  in  the  Lateral  Geniculate  responded  to  differences  in  illumi¬ 
nation  intensity  rather  than  the  amount  of  total  intensity.  The  cortical  neurons  showed 
vigorous  response  to  slow  downward  movements  and  a  lesser  response  to  upward  move¬ 
ments.  1  hey  showed  no  response  to  side-to-side  motion  [17:2]. 

•  A  large  number  of  cortical  neurons  are  considered  “simple”  and  respond  depending  on 
the  orientation  and  position  of  the  shape  with  regard  to  the  cells  receptive  field.  “Com¬ 
plex”  cells  also  re.sponded  strongly  to  edges  and  bars  and  their  associated  orientation 
but  they  were  not  tis  discriminating  as  to  the  exact  position  of  the  stimulus. [17:59,60] 
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These  results  suggest  that  mammalian  visual  perception  is  built  from  small  pieces  of 
the  whole[n]. 

2,5.2  The  Gabor  Function  Approximates  the  2D  Visual  Receptive  Field  Responses 
Once  research  of  visual  perception  had  shown  evidence  of  this  parts-to-whole  relationship, 
other  researchers  attempted  to  quantify  some  of  the  intermediate  representations.  The  work 
of  Jones  and  Palmer  showed  one  form  of  the  processing  that  is  done  on  2-dimensional(2D) 
images  in  the  mammalian  visual  system.  A  graphical  representation  of  this  processing  is  very 
similar  to  the  graph  of  a  set  of  mathematical  functions  known  as  Gabor  functions  [18:1180]. 

Fourteen  adult  cats  were  anesthetized  and  shown  various  visual  stimulus  by  way  of  an 
oscilloscope  screen.  The  cats  were  shown  an  illuminated  dot  on  a  dark  screen  and  a  dark 
dot  on  an  illuminated  screen  for  various  intervals  of  time.  Simultaneously  microelectrodes 
were  recording  the  neuronal  responses  from  the  visual  cortex.  These  sets  of  data  were  later 
compared  using  a  process  called  “reverse  correlation”  [18: 1180]  and  produced  a  2D  image 
which  compared  with  little  error  to  the  2D  Gabor  functions. 

2.6  Image  Processing  using  The  Gabor  Transform. 

2.6.0. 1  Finding  Optimal  Gabor  Coefficients  Using  the  Gabor  functions  as  a 
model  of  a  portion  of  human  visual  processing,  John  Daugman  showed  that,  because  of 
the  intrinsic  redundancy,  2D  images  can  be  coded  using  the  2D  Gabor  transform.  He  has 
been  able  to  code  images  into  a  more  compact  form  and  thus  reduce  the  amount  of  data 
to  be  transmitted  for  image  reconstruction.  Daugman  has  also  shown  the  usefulness  of 
the  Gabor  transform  for  image  analysis  and  image  segmentation.  The  Gabor  transform 
“extracts  locally  windowed  2D  spectral  information  concerning  form  and  texture  without 
sacrificing  information  about  2D  location  or  more  global  spatial  relationships,  as  does  a 
Fourier  transform.” [II] 

The  main  thrust  of  Daugman’s  article  [11]  was  to  show  the  utility  of  a  neural  network 
for  obtaining  the  Gabor  coefficients  to  represent  an  image  with  a  set  of  Gabor  functions.  Since 
the  2D  discrete  Gabor  transform  is  not  an  orthonormal  set  of  functions,  it  is  computationally 
intensive  to  directly  calculate  the  coefficients  for  an  optimal  approximation  to  an  image. 
Daugman’s  neural  network  approach  is  used  to  find  an  optimal  set  of  coefficients  which 
produces  an  optimal  match  to  the  original  image. 
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S.6.0.2  FLIR  Image  Segmentation  Using  Gabor  Coefficients  During  his  thesis 
research,  Kevin  Ayer  segmented  targets  from  non-targets  in  a  Forward  Looking  Infrared 
(FLIR)  image  using  Gabor  functions[2].  Ayer  determined  the  Gabor  transform  of  FLIR 
images  and  obtained  multiple  sets  of  Gabor  coefficients.  Each  set  of  coefficients  represented 
a  particular  orientation  of  interest.  The  Gabor  coefficients  constituted  a  correlatioii  coeffi¬ 
cient  of  a  particular  Gabor  function  as  it  relates  to  the  image  of  interest.  From  the  Gabor 
coefficients  he  was  able  to  segment  the  image  into  regions  of  interest.  He  then  used  conven¬ 
tional  pattern  recognition  techniques  to  classify  a  specific  region  of  interest  using  the  Gabor 
coefficients  as  his  features. 

2.6.1  SAR  Image  Segmentation  Using  Gabor  Coefficients  Albert  L‘ Homme  has  con¬ 
structed  a  system  to  segment  SAR  imagery  using  the  Gabor  transform [20].  Utilizing  a  small 
subset  of  possible  orientations  and  a  constant  modulation  of  Gabor  functions  he  generated 
a  set  of  Gabor  coefficients.  He  found  that  the  bandwidth  of  the  Gabor  functions  to  be  more 
significant  in  segmentation  than  the  orientation  parameters.  These  coefficients  were  then 
processed  using  a  radial  basis  function  self-organizing  neural  network  to  segment  a  SAR 
image.  He  was  able  to  segment  with  measures  of  accuracy  up  to  92%  as  compared  to  hand 
segmented  imagery. 

2.6.2  Wavelets  in  image  processing  As  described  in  the  previous  section,  image  cod¬ 
ing,  segmentation,  and  feature  extraction  have  been  done  using  Gabor  functions.  These 
functions  are  a  subset  of  a  larger  class  of  functions  known  as  w^avelets  [22:2098].  According 
to  Mallat  [22],  [25],  [1],  the  wavelet  transform  can  provide  a  multiresolution  representation 
of  an  arbitrary  function  having  finite  energy.  This  representation  allows  for  localization  of 
fiequency  content  of  an  image,  and  provides  a  tool  for  texture  and  edge  discrimination.  Both 
texture  and  edge  detection  can  be  an  effective  too)  in  pattern  recognition. 

Christopher  Heil  has  contributed  to  understanding  the  mathematical  definition  of 
wavelets.  Heil  explains  that  separable  Hilbert  Spaces,  in  particular  L^(R),  possess  an  or¬ 
thonormal  basis.  The  major  benifit  of  an  orthonornial  basis  is  that  it  provides  a  decompo¬ 
sition  for  a  Hilbert  space  such  that  if  {e,,}  is  an  orthonormal  basis  for  H  then  every  .t  6  H 
can  be  written 

n 

This  doe.s  not  guarantee  that  the  basis  set  can  be  found  or  that  when  found  it  will  be 
convenieni,  to  work  with[16:147]. 


“Frames  are  an  alternative  to  orthonorinal  basis  sets.  By  giving  up  the  requirements 
of  orthogonality  and  uniqueness  of  decomposition  we  allow  much  more  freedom  in  our  choice 
of  “basic  vectors”,  while  still  retaining  the  ability  to  decompose  the  space.” [16:147]  If  {a:„} 
is  a  frame,  then  every  a:  €  II  can  be  written 


X  —  CnX„ 
n 

in  such  a  way  that  scalars  are  computable,  and  the  series  converges  to  x. 

Frames  fall  into  two  general  categories  called  Weyl-Heisenberg(W-H)  frames  and  affine 
frames.  The  W-H  frames  are  composed  of  discrete  modulations  and  translations  of  a  single 
function,  known  as  a  “mother  wavelet”.  The  affine  frames  are  composed  of  discrete  dilations 
and  translations  of  the  “mother  wavelet”  [16:147-159].  The  Gabor  transform  mentioned 
above  falls  into  the  W-H  category  and  doesn’t  form  an  orthonormal  basis  set. 

2.6.2. 1  Orthonorinal  Wantltls  Daubechies  has  revealed  the  form  of  a  set  of 
wavelets  which  are  orthonornial  [8].  These  orthonormal  sets  can  be  used  to  exactly  recon¬ 
struct  a  function  from  its  wavelet  coefficients  with  the  classical  expansion  method  formula. 
This  provides  a  straightforward  means  of  exact  reconstruction  of  an  image  rather  than  an 
optimal  reconstruction.  The  wavelet  coefficients  should  prove  useful  in  some  areas  of  pattern 
recognition  [22].  Dauhechies  has  also  provided  orthonormal  wavelets  with  a  compact  support 
meaning  the  wavelet  has  nonzero  values  on  a  finite  interval. 


2.7  Artificial  Neural  Network  Radial  Basis  Function  Classifiers 


Artilicla.]  neural  networks  constitute  one  class  of  architecture  for  parallel  distributed 
processing  systems.  This  architecture  follows  from  what  is  currently  known  and  hypothesized 
about  the  mammalian  nervous  system.  A  large  number  of  papers  have  been  recently  pub¬ 
lished  with  respect  to  neural  network  techniques  and  tools  wliich  can  be  applied  to  pattern 
recognition  problems  [3.3:28]. 


In  Dan  Zahirniak’s  thesis  [37]  on  the  characterization  of  radar  signals,  he  explains  the 
concepts  and  architecture  of  RBF  neural  networks.  'I  he  citations  following  each  section  are 
the  original  literature  sources  used  by  Zahirniak. 

Neural  network  classifiers  are  categorized  as  either  a  Hyperplane  Classifier,  an  Exem¬ 
plar  Classifier,  a  Probabilistic  Classifier  or  a.  Kernel  Classifier.  These  categories  are  <!epen- 
dent  on  the  method  used  by  the  network  to  accomplish  classification  [21:47-63].  Th<'  most 
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common  neural  network  classifier  is  the  multilayer  percepiron.  Using  a  single  hidden  layer 
where  each  node  uses  a  sigmoidal  function  to  calculate  its  output  from  a  sum  of  the  product 
of  its  inputs  and  their  associated  weights,  the  perceptron  is  a  hyperplane  classifier.  This  type 
of  classifier  is  based  on  the  property  that  any  multivariate  function  can  be  approximated 
with  a  finite  superposition  of  sigmoidal  functions. 

The  Radial  Bcisis  Function  (RBF)  departs  from  the  traditional  McCullough  and  Pitts 
neuron  and  falls  into  the  Kernel  Classifiers  category.  The  Kernel  Classifier  is  characterized 
by: 


•  The  overlapping  radial  basis  functions  create  a  complex  receptive-field  decision  region 
over  the  feature  space  as  shown  in  Figure  2.1. 

•  The  basic  premise  of  the  network  is  that  any  multivariate  function  can  be  reasonably 
approximated  using  a  linear  combination  of  radial  basis  functions  with  their  centers 
on  or  near  data  points[29:143-167]  [28:978-980]. 

Additionally,  the  RBF  network  architecture  consists  of  establishing  a  single  hidden 
layer,  with  nodes  in  the  hidden  layer  transforming  inputs  to  outputs  using  a  radial  basis 
function  [37]. 


S.T.l  Localized  Receptive  Fields  The  same  type  of  neural  network  architecture  dis¬ 
cussed  by  Zahirniak  in  the  previous  subsection  is  explored  by  Moody  and  Darken  in  [26]. 
They  mention  that  locahy-tuned  overlapping  receptive  fields  (radial  basis  functions)  are 
known  data  structures  in  biological  nervous  systems.  These  same  receptive  field  have  plas- 

4  u  V  O  V'i  i '-•H  VCXO I  V  I  tl  VI^U<VI 

cortex.  The  exact  learning  of  the  RBF  network  is  described  as  a  two  stage  hybrid  process 
where  the  lower  layer  field  centers  and  field  width  is  determined  by  a  self-organizing  manner 
and  the  amplitudes  of  the  node  is  determined  by  a  supervised  LMS  rule.  This  provides  for 
faster  learning  since  only  the  output  weights  are  calculated  using  an  error  term.  Moody  and 
Darken  apply  the  receptive  field  network  to  predicting  the  Mackey-Glass  differential  delay 
equation  time  series.  Their  results  demonstrate  that  the  receptive  field  network  achieves 
comparable  prediction  accuracy  to  a  multilayer  perceptron  using  a  gradient  descent  learning 
algorithm  in  significantly  less  time,  on  the  order  of  1000  times  faster  [26]. 

In  [27]  Nowlaii  describes  the  difference  between  hard  and  soft  learning  algorithms  for 
RBF  networks. 
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Figure  2.1.  Ker.iel  Classifier  Network  Decision  Regions [3 7: 12] 


•  The  Hard  learning  algorithm  requires  updating  weights  on  a  winner  take  all  criteria. 
Only  the  winning  node  is  updated  and  all  other  node  are  unaffected. 

•  The  Soft  learning  algorithm  requires  updating  weights  based  on  their  proportionality 
to  the  present  vector’s  input  strength.  All  of  the  nodes  are  updated.  The  amount  of 
the  update  is  proportional  to  their  response  to  the  input  vector. 

Additionally,  Nowlan  describes  various  methods  for  placing  the  centers  of  the  radial 
basis  functions  in  the  feature  space.  These  method  include: 

•  K-means  center  selection  with  an  adiustment  to  the  size  of  the  RBF  to  reduce  a 
smoother  interpolation. 

•  Cluster  centers  are  a.ssigned  based  on  the  closest  mean  then  the  mean  is  recalculated 
based  on  the  average  of  the  samples  within  its  class. 

Nowlan  tested  an  R.BF  network  using  Soft  and  Hard  algorithms  against  each  other  as 
well  as  against  a  multilayer  perception  network  using  a  Least  Mean  Square  (LMS)  learning 
algorithm.  He  utilized  two  types  of  data  for  this  comparison.  The  first  type  was  hand  drawn 
digits  and  the  second  type  of  data  was  human  speech  in  the  form  of  dif  'tized  versions  of 
the  first  and  second  formant  frequencies  of  10  vowels  from  multiple  speakers.  In  both  cases 
the  RBF  network  using  soft  learning  algorithms  were  able  to  outperform  the  same  network 
using  Hard  algorithms. 

3.S  Conclusions 

Pattern  recognition  tasks  of  segmentation,  feature  extraction,  and  classification  are  in 
general  very  difficult.  Research  into  the  mammalian  visual  system  has  given  some  insight 
and  provided  new  avenues  of  approach  to  these  tasks.  The  wavelet  representation  provides 
varied  views  of  data  depending  on  the  dilation  of  the  basis  set  or  wavelet  used.  The  use 
of  wavelets  can  provide  a  multiresol  ution  representation  of  visual  data.  I'his  provides  a 
method  of  rejiresenting  redundancies  in  visual  data  as  Daugman  and  L‘ Horn  me  found.  This 
representation  may  provide  useful  features  to  the  biologically  motivated  radial  basis  neural 
network.  Tlie  network  provides  a  means  of  using  the  wavelet  representation  to  segment 
imagery.  This  the.sis  explains  and  applies  the.se  two  relatively  new  tools  lo  the  segmentation 
task. 
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IIL  Theory  of  Wavelet  Analysis 


This  chapter  v/as  co-authored  with  John  (Stev/art)  Laing  and  exists  in  his  thesis  in 
duplicate  [19]. 

8.1  Introduction 

Signal  analysis  seeks  to  discover  the  information  content  of  signals  needed  for  appli¬ 
cations  such  as  pattern  recognition  and  signal  coding.  One  approach  is  to  transform  a 
mathematical  representation  of  the  signal  into  a  domain  of  interest.  A  simple  example  is  a 
coordinate  transformation  which  maps  a  function,  such  as  a  circle,  from  Cartesian  coordi¬ 
nates  to  polar  coordinates.  A  circle  represented  by  in  Cartesian  space  is  now 

more  easily  expressed  hy  p  =  r  in  polar  space.  The  coordinates  x  and  y  or  p  and  0  provide 
alternate  representations  of  the  circle. 

Another  example  of  this  kind  of  transform  analysis  is  the  Fourier  series  expansion.  If 
.f(^)  is  a  continuous  function  on  the  interval  [ — and  Jy  — 

f{x)  =  ^c.e^  (3.1) 

n 

where  p  =  —  1,  and  n  is  an  integer.  The  Fourier  series  expansion  of  a  function  requires  the 
generation  of  coefficients,  c„. 


1  yl 


T  J-r-' 


’  I r  /■/ 1 


These  coefficients  are  the  amplitude  and  phase  of  each  member  of  the  Fourier  series  basis 
.set  needed  to  reconstruct  the  original  function.  In  continuous  form,  Equation  3.2  becomes 
the  Fourier  Transform. 

/-{-CO 

f{x)cr’‘^^^^dx  (3.3) 

■oo 

It  maps  one  dimensional  signals  from  the  time  doiiutin  to  the  frequency  domain  and  can  be 
extended  to  map  two  dimensional  images  from  the  space  domain  to  the  spatial-frequency 
domain.  From  another  point  ol  viev  ,  the  transform  projects  the  original  signal  or  image 
onto  the  siiace  spanned  by  the  exponential  basis  set,  is  an  integer},  for  all  integers 

n.  In  this  jiaper  we  will  denote  this  set  with  the  sj'mbol  E^- 


Unfortunately,  the  Fourier  Transform  representation  gives  no  information  as  to  the 
location  of  the  frequency  characteristics  in  the  original  signal.  This  is  due  to  the  fact  that  the 
basis  set  £„  has  infinite  support.  Therefore,  any  abrupt  changes  in  the  time  domain  require 
contributions  from  the  entire  frequency  domain.  The  Fourier  Transform  might  indicate  that 
high  frequencies  are  present  in  the  signal,  but  it  does  not  indicate  where  in  time  that  range 
of  frequencies  are  significant.  In  images,  edges  or  lines  are  area^  of  high  spatial  frequency.  A 
Fourier  Transform  of  an  image  with  edges  would  provide  evidence  of  high  spatial  frequencies 
but  would  not  indicate  where  in  the  image  the  edges  could  be  found.  Finding  the  location  of 
unique  spectral  characteristics  can  be  extremely  useful  as  a  feature  set  in  applications  such 
as  pattern  recognition  and  signal  coding  [11,  24]. 

Therefore,  we  need  an  extra  variable  in  the  target  or  transform  domain.  In  othei  words, 
we  need  a  transformation  that  maps  a  signal  to  the  time/ frequency  domain  or  an  image  to 
the  space/spatial-frequency  domain.  The  Windowed  Fourier  Transform  (WFT)  is  such  an 
transformation . 

r+oo 

WFf(u,T)=  /  w(/ -  r)e-J“7(l)di  (3.4) 


where  w(«j  is  the  window  function.  This  transformation  uses  the  window  to  localize  the 
analysis  of  time  and  frequency  on  the  signal.  However,  because  the  window  size  is  fixed,  no 
sharper  resolution  in  time  can  be  provided.  Due  to  the  uncertainty  principle,  it  is  impossible 
for  this  basis  set  to  have  arbitrarily  high  resolution  in  both  time  and  frequency  [10,  34].  F^veii 
the  Gabor  Transform,  a  WFT  who.se  Gau.ssian  shaped  window  gives  the  best  compromise, 
still  falls  prey  to  the  uncertainty  principle.  Additionally,  because  the  window  width  is  fixed 
sharp  discontinuities  in  the  time  signal  are  spread  across  many  Fourier  coefficients. 


_ UI _ 1U_  ^^L7 _ i_f  rr _ r —  .1 

v/iiC  ci.Ijio»Vvji  W  tut:  vvctvcitJl  J.1  ciiisiui ill  .  it 

allows  variations  in  the  size  cd  the  window  effectively  trading  re.solution  in  time  for  resolution 
in  frequency.  The  collect'on  of  its  coefficients,  similar  to  the  Fourier  Transform,  is  a  projec¬ 
tion  of  the  original  signal  or  image  onto  the  space  spanned  by  its  basis  set.  The  wavelet  basis 
set  is  made  i!p  of  variations  in  the  translation  ar.d  dilation  of  a  mother  wavelet  functio  i  just 
as  the  {A^n}  Is  niade  up  of  variations  in  the  frequency  of  the  complex  exponential  funedon. 


This  chaptcj  provides  the  basics  for  understanding  wavelet  analysis.  It  presents  the 
Wavelet  Transforms  of  both  continuous  and  discrete  signals.  We  discuss  Multirosolution 


Aiiotlicr  approacli  to  tlie  time/frequency 
r.l 


[H,  6] 
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Wavelet  Analysis  both  in  terms  of  successive  projections  onto  a  wavelet  basis  set  and  succes¬ 
sive  lowpass  and  bandpass  filtering  in  the  Fourier  domain.  Finally,  we  address  the  extension 
of  Multiresolution  Wavelet  Analysis  to  two  dimensions. 

3.2  Notation 

The  following  notation  will  be  used  throughout  this  document. 

•  Z  denotes  the  set  of  integers. 

•  R  denotes  the  set  of  real  numbers. 

•  denotes  the  set  of  positive  real  numbers. 

•  L^(R)  denotes  the  space  of  measurable,  square  integrabie,  one  dimensional,  real- valued 
functions  f{x),  such  that 

/OO 

\i.fi^))\^dx  <  OO  (3.5) 

-OO 

•  L^(R^)  denotes  the  space  of  measurable,  square  integrabie,  real-valued,  two  dimen¬ 
sional  functions  f{x,y),  such  that 

/OO  too 

/  \f{x,y)\'^dxdy  <  OO  (3.6) 

•OO  j  — OO 

•  For  J\g  E.  L^(R)  the  inner  product  of  /  with  g  is  defined  as 

/-l-oo 

g{x)f{x)dx  (3.7) 

-OO 

•  For  J,g  E  L^(R)  the  convolution  of  /  with  g  is  defined  as 

/+00 

/(a)y(.T  -  a)da  (3-8) 

J  —CO 

•  For  f,g  E  L^(R)  the  correlation  of  /  with  y  is  defined  as 

/  +  00 

f{a)g{Q  -  x)da 

-OO 
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(3.9) 


P„  denotes  the  projection  operator  on  L^(R)  such  that  for  any  /  € 


(3.10) 


where  {?)„}  is  a  complete  basis  set  and  n  €  Z.^ 

3.3  The  Continuous  Wavelet  Transform 

The  basis  functions  in  wavelet  analysis,  {ipab},  are  derived  from  a  single  function  called 
the  mother  wavelet,  ip{x).  It  acts  as  the  window  in  the  Wavelet  Transform  whose  size  is 
varied  by  the  dilation  parameter,  a  £  R"^  .  Like  the  Windowed  Fourier  Transform,  it  has  a 
translation  parameter,  6  £  R. 

i’abix)  ~  — ^-)  (3.11) 

w  Cl  a 


The  ^  term  normalizes  the  energy  of  each  basis  function.  Figure  3.1  shows  dilated  and 
translated  versions  of  a  mother  wavelet.^  The  function  in  the  middle  is  the  prototype,  function 
where  6  =  0  and  a  =  1.  The  function  tc  the  right  is  translated  by  6  =  15  and  dilated  by 
a  =  |.  And  finally,  the  function  to  the  left  is  translated  by  6  =  —20  and  dilated  by  a  =  2.  All 
such  possible  dilations  and  translations  of  the  mother  wavelet,  V’(^)  make  up  the  elements 
of  the  set  {ip^b}- 

This  basis  set  provides  narrow  windows  for  small  a  isolating  discontinuities  in  time 
that  are  spread  over  a  broad  range  of  frequencies  and  wide  windows  for  large  a  that  have 
better  frequency  resolution.  The  Continuous  Wavelet  Transform  for  a  real  mother  wavelet 
tp  is  [14:7] 

1  f4oo  X  h 

WAa,b)  =  /  f{x)ii - )dx,ae  R+,6  £  R  (3.12) 

y/a  J-<<,  a 

With  this  transform,  a  wavelet  coefficient  is  obtained  for  each  dilation  and  translation  of  the 
mother  wavelet. 

If  the  Fourier  Transform  of  the  mother  wavelet,  denoted  by  'k(u;),  satisfies  the 

condition  that 

Jf  T  -OO 

'  |^(u;)j^/|u;|du;  <  oo  (3.13) 

0 


^The  relationship  of  this  basis  set  </>„  to  the  mother  wavelet  is  discussed  in  Section  3.6  of  this  chapter, 
-Lapiacian  of  tlie  Gaussian  ^(a:)  =  . 


whicii  requires  that  'I'(O)  =0  an  inversion  transform  exists  and  is  given  by  []4:8j 


f{x)=c^-j=f  /  - )Wj{a,b)—^ 


y/U  J-oo  JO 


(3.14) 


The  wavelet  transform  pair  given  in  Equations  3.12  and  3.14  are  analogous  to  the  Fourier 
'I  ’ansform  pair  ol  Equations  3.1  and  3.3.  As  the  dilation  parameter  a  vari<^s,  the  window 
w  idth  of  function  varies.  Since  small  values  of  o  correspond  to  small  window  widths, 

<1.  varies  inversely  with  the  frequency  detectable  within  the  window.  Therefore,  the  wavelet 
transtonn.  i.solates  time  discontinuities  or  abrupt  changes  in  time  at  the  expense  of  low 
frequency  resolution  at  high  frequencies.  In  many  applications,  the  important  information 
content  ot  tiie  signal  is  contained  in  the  quick  transitions  of  the  signal  in  time.  For  this 
reasoT:  the  Wavelet  I'ransform  can  be  quite  useful. 

because  the  windows  overlap  when  the  parameters  (a, 6)  are  varied  continuously,  the 
Wavelet  Transform  is  highly  redundant.  Therefore,  it  is  possible  to  evaluate  it  with  a  discrete 
sei  ot  basis  i’unctions  in  much  the  same  way  that  the  Fourier  expansion  of  Equation  3.1  repre¬ 
sents  a  signal  with  a  set  of  discrete  exponentials.  The  time/ frequency  plane  evaluating  grids 
arc  .dioi.a  in  Figure  3.2  for  uniform  time-frequency  sampling  eissociated  with  the  Windowed 
Fourier  xVansform  and  the  nonuniform  sampling  of  the  Wavelet  Transform.  Each  dot  in  the 

'’The  w  in  the  denominator  of  Equation  S.l.i  requires  that  4'(ui)  vanishes  as  ui  approaches  zero. 
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lattice  ;::dicates  the  localization  in  the  time/frequency  plane  of  one  resolution  cell,  showing 
the  ce.iter  of  the  time  window  and  corresponding  bandpass  filter.  In  this  figure,  we  can  see 


u 


T 


Window  Fourier  Transform 


a 


0 

:  b 


Wavelet  Transform 


Figure  3.2.  Time/ Frequency  Window  Localization  Lattice  [9:41] 

that  the  fixed  window  widths  of  the  Windowed  Fourier  Transform  have  a  fixed  resolution  in 
time  and  frequency;  whereas,  the  variable  window  widths  of  the  Wavelet  Transform  provide 
varieb.'o  resolution  in  time  and  frequency.  The  clustering  of  grid  dots  at  the  origin  along  the 
c  ax's  of  the  Wavelet  Transform  time/frequency  lattice  indicate  the  low  time  resolution 
or  localization  of  low  frequencies;  whereas,  the  denseness  of  grid  dots  parallel  to  the  shift 
axis,  b,  at  high  frequencies  (large  a"*)  indicates  the  higher  time  resolution  or  localization  of 
higher  frr  tueiicies. 


3-4  The  Wavelet  Tiansform  with  Discrete  Wavelets 

It  is  sometimes  convenient  to  use  a  mother  wavelet  whose  discrete  translations  and 
dilations  form  an  orthonormal  basis  [7].  For  this  case,  the  discretized  basis  set  (V-’m)  where 
m,n  e  Z  is  defined  as 


(3.15) 


3-C 


where  a  >  1  and  ^  >  0  [14:11].  In  this  chapter,  we  use  the  dyadic  interval  defined  to  be 
a  =  2  and  /3  =  1.  For  the  dyadic  case,  Equation  3.15  becomes 

C(^)=2-TV,(2-a:-n)  (3.16) 

Using  this  form  of  the  mother  wavelet  in  Equation  3.12  yields  the  Wavelet  Transform  with 
a  discrete  wavelet  basis. 


W;(m,n)  =  2-^  -  n)f{x)dx  (3.17) 

To  check  this,  consider  the  Fourier  Expansion  given  in  Equation  3.1.  We  can  represent  any 
function,  /  G  L^R)  as 

/(^)  =  (3  1®) 

n 

where  is  the  n'*  element  of  an  orthonormal  basis  for  L^(R).  Equation  3.18  can  also  be 
thought  of  as  the  reconstruction  of  f{x)  from  its  coefficients  {cn}  in  terms  of  the  orthonormal 
basis  {0n}-  The  inner  product,  Cn  =  (/,  0n)>  gives  the  coefficient  of  the  n'*  term  in  the 
basis.  Just  as  any  vector  r  in  three  dimensional  Euclidian  space  can  be  expanded  in  a  set 
of  mutually  orthogonal  unit  vectors  and  z  in  the  form  r  •■=  aix  +  a2y  +  a^z,  we  can 
expand  any  function  /  €  L*(R)  in  a  set  of  mutually  orthogonal  unit  vectors  in  the 
form  /  =  If  we  multiply  both  sides  of  Eiquation  3.18  by  any  term  Vv/»  for  m  G  Z 

and  integrate,  we  get 


/•OO 
J — OO 


V’m(-T)/(.T)dx  =  2^C„  I  yy^yx )iPrnh )dx 

„  J— OO 


But,  because  of  the  orthonormality  of  the  set  {0n}  we  know  that 

/  xl',nU:)^n(x)dx  =  6„m  (3.20) 

J  —  c»:» 

where  is  the  Kronccker’s  symbol,  and  is  defined  as  0  if  tn  ^  n  and  1  if  rn.  —  n.  Therefore, 
all  the  terms  in  the  summation  of  Equation  3.19  are  zero  except  the  one  in  which  n  — -  m. 
Thus, 

r(x> 

I  f{x)ij,n{r)dx  ~  c,n  (3.21) 

•f  “CO 
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is  the  integral  form  vve  need  to  find  the  coefficient  of  the  basis  element,  Cm-  Written 
another  way,  'rj.:nation  3.21  becomes  a  continuous  transform  with  an  orthonormal  basis  that 
maps  f(x)  —>■ 

Tj{m)=f  f{x)iprri{x)dx  (3.22) 

J  —  OO 

Now,  we  can  insert  the  crihonormal  wavelet  basis  set  of  Equation  3.16  into  Equa¬ 

tion  3.22  and  get  the  Wavelet  Transform  of  Equation  3.17.  To  reconstruct  the  original  signal, 
we  perform  a  generalized  Fourier  series  expansion  (see  Equation  3.18)  with  the  coefficients 
obtained  with  Equation  3.17  and  our  beisis  set  {0^}. 

/W  =  EE*^/('«.")V'W^  (3-23) 

m  n 


The  next  hurdle  in  wavelet  analysis  is  to  determine  the  most  appropriate  mother 
wavelet  for  a  specific  application.  Presently,  the  appropriateness  of  a  specific  mother  wavelet 
is  determined  experimentally.  We  first  try  to  match  the  characteristic  shape  of  the  mother 
wavelet  with  the  characteristics  of  the  function  under  analj'sis.  For  a  more  complete  discus¬ 
sion  of  this  issue,  see  Fastman  [14]. 


S.5  Mtilt (resolution  Analysis 

In  .section  3.3,  The  Continuous  Wavelet  Transform,  we  said  that  the  Wavelet  Trans¬ 
form  uses  a  variable  length  window  to  examine  the  function.  Increasing  window  lengths 
correspond  to  successively  coarser  scales  or  resolutions  (in  time  or  space)  of  the  function. 
Therefore,  wavelet  analysis  is  sometimes  referred  to  zis  multiresolution  analysis.  In  this  sec¬ 
tion,  we  will  describe  each  resolution  level  as  the  projection  of  the  function  onto  the  basis 
set  made  up  of  all  shifts  of  a  scaling  function  (not  a  v/avelet)  at  a  fixed  dilation  or  scale. 
Multiresolution  analysis  represents  a  signal  as  a  series  of  successive  projections,  each  of  which 
approximates  the  original  signal  at  a  different  level  of  resolution  [4,  30].  Here,  ‘level’  cor¬ 
responds  to  a  particular  dilation  of  the  scaling  function.  A  more  intuitive  view  is  that  of 
successive  low  pass  filtering  of  the  signal  with  filters  of  narrower  and  narrower  bandwidth 
representing  the  signal  with  less  and  less  detail.  The  filter  is  related  to,  and  can  be  derived 
from,  the  scaling  function.  Both  views  will  be  discussed  in  the  following  subsections. 


3.6  Multiresolution  with  Projections 

The  projection  operator  P/  projects  a  function  /  onto  a  basis  set  {^n}  (see  Section 
3.2,  Notation).  For  mathematical  convenience  we  consider  a  scaling  function  <f>{x)  whose 
translations  and  dilations  form  an  orthonormal  basis.  This  is  possible  according  to  Stephane 
Mallat’s  Theorem  1  which  states: 


Let  (V2J  )jez  be  a  multiresolution  approximation  of  L^(R).  There  exists  a  unique 
function  <f>{x  called  a  scaling  function,  such  that  if  we  set  4>2ji^)  ~ 

2^j>{2^x)  foi  j  G  Z,  (the  dilation  of  4>{x)  by  2^),  then 

iy/¥^4>Ax-2-^n))r,^z  (3.24) 

is  an  orthonormal  basis  of  V2J 

[23:676];  see  [23:690]  for  proof.  In  Mallat’s  theorem,  V2J  is  a  vector  subspace  of  L^(R)  whose 
basis  set  is  the  scaling  function  <f>{x).  In  being  consistent  with  our  earlier  notation,  where 
ivlallat  uses  j  to  denote  level  or  scale  we  use  the  integer  m  and  the  integer  n  to  denote  shift. 
One  property  of  Mallat’s  set,  ^hat  each  element  is  identical  in  shape  to  every  other 

element  but  differs  in  height  by  a  power  of  two  and  differs  in  relevant  width  by  a  power 
of  two.  This  is  known  as  the  dyadic  case.  Figure  3.3  shows  a  rectangular  scaling  function 
dilated  three  times.  With  an  orthonormal  scaling  function  dilated  and  translated  dyadically, 
we  can  use  Mallat’s  discrete  projection  operator 


nez 


1  \\.  /  \\ 
■n)}(p2’n{x  —  z  n)j 


{6.2o) 


meZ 


which  generates  an  approximation  of  the  original  function  at  a  level  of  resolution  2"*.  The 
set  of  inner  products 

{(/,<?^2-n(»-2-’"n))},„,„ez  (3.26) 


characterizes  an  approximation  of  /  at  scale  m.  In  Mallat’s  terminology,  A2m  projects 
/  G  L^(R)  onto  the  subspac<*  V2m,  For  notational  convenience,  we  now  drop  the  subscript  2 
and  rewrite  V„,  for  V2m. 
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Figure  3.3.  A  Rectangular  Scaling  Function  Dyadically  Scaled 


The  family  of  subspaces  created  b}'  successively 


C"arser  approximations  of  L^(R) 


has  the  property  that 


•  •  •  c  c  v„^_i  c  Kn  c  v;„+i  c  v'^^.2  c  •  ■ 


(3.27) 


That  is,  each  resolution  approximation  of  L^(R)  is  contained  in  (is  a  subset  of)  the  next 
higher  resolution  approximation.  Because  a  physical  sampling  device  samples  at  a  finite 
rate,  any  signal,  /.  is  represented  at  its  finest  level  of  resolution  by  A,n„f-  For  reference,  we 


choose  rrio  =  0.  Then  for  a  finite  number  of  resolutions,  M,  we  have 


Vl(M-i)  c  V-(M-2)  C  •  •  -  C  V_:  C  Vo  (3.28) 

Since  Amf  €  fm,  each  approximation  of  coarser  resolution  A^-if  can  be  derived  from  its 
parent  projection  of  finer  resolution  Amf- 

The  difference  between  two  adjacent  scales,  m  and  m  —  1,  given  by 

D,^-J  ==  A^f  ~  A^-^f  (3.29) 


is  called  the  detail  signal  at  scale  rn  —  1.  It  contains  the  details  in  the  signal  /  that  are  lost 
during  the  projection  from  level  m  to  level  m  —  1.  The  detail  signal,  Dm-if,  is  the  result  of 
projecting  /  onto  the  basis  set  of  a  vector  space,  Om-i,  which  is  orthogonal  to  V^-i,  with 
the  projection  operator  Dm-\-  Analogous  to  the  projection  Equation  3.25,  this  operator  is 
described  in  terms  of  a  basis  set®  which  spans  the  space  Om- 

Dmf(x)  =  (2-'^  -  2-n))02m(x  -  2-”’n))  (3.30) 

\  /mez 


Equation  3.30  generates  the  difference  between  approximations.  It  is  characterized  by  the 
set  of  inner  products 

{(/,i/vn(*-2-'"n))},„.„ez  (3.31) 

This  is  just  Equation  3.17  written  as  an  inner  product.  Thus,  the  mother  wavelet,  «/>(a:), 
generates  a  basis  set,  {0^,},  of  t  he  vector  space  0„,.  Figure  3.4  shows  an  example  of  a  mother 
Wt.velet  dilated  and  translated  dyadically.  It  follows  from  Equation  3,29  that  the  sum  of  all 
the  detail  signals  and  the  coar.sest  approximation  equals  the  original  signal. 


f[x)  —  Xl_i/  +  . . .  +  /  (3.32) 

Equation  3.32  is  the  Wavelet  Decomposition  of  J{x). 


^Here,  tlie  particular  moi.her  wavelet  associated  with  the  scaling  function,  i^(®)  used  in  Equation 

3.25.  Some  researchers  derive  the  (j)  given  a  ip.  and  others  derive  the  ip  given  a  <p  [9].  In  this  thesis,  we  use 
previously  derived  <p,ip  jiairs  [2.3]  [8]. 


3.1  Multiresolution  with  Filters 

i 

An  alternate  view  of  the  multiresolution  approximations  is  that  of  filtering  the  image 
with  a  set  of  low  pass  filters  with  successive!}''  narrower  bandwidth.  The  inner  products  of 
Equation  3. 26  are  convolutions  evaluated  at  the  point  2""*n  (see  section  3.2,  Notation). 

/+CO 

-2  "‘n))  =  /  f{x)^2A^ -^~”'n)dx  =  [{f  *  4>2^{-»)]i2~”^n)  (3.33) 

.  •»'  — OO 

An  alternative  approach  uses  correlations  where  the  argument  of  4>  is  reversed  (see 
section  3.2,  Notation). 


Figure  3.4.  A  Haar  Mother  Wavelet  Function  Dyadically  Scaled 
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(3.34) 


/+00 

f{x)<{>2r^{2~^n  ~  x)dx  =  [{f  *  <l>2’”{x)]{2~'’^n) 

-oo 

Convolution  and  correlation  are  interchangeable.  We  choose  convolution  for  consistency  with 
current  wavelet  literature.  Of  course  every  good  electrical  engineer  recognizes  convolution 
as  multiplication  in  the  Fourier  domain 

[/  *  9]{^)  ^  F{uj)G{u)  (3.35) 

where  F  and  G  are  the  Fourier  Transforms  of  /  and  g  respectively.  The  Fourier  Transform, 
$(aj),  of  the  scaling  function,  <^(3:),  is  a  low  pass  filter  with  a  specific  bandwidth.  The  Fourier 
Transform  of  each  successively  wider  scaling  function  (dilated  by  a  power  of  2)  will  also  be 
a  low  pass  filter,  but  with  a  bandwidth  smaller  than  that  of  the  previous  sca^e  or  level.  This 
operation  of  successive  low  pass  filtering  produces  “smoothed”  versions  or  approximations  of 
the  original  signal.  Each  version  contains  less  information  or  detail  than  its  predecessor.  In 
the  case  of  images,  each  approximation  is  “blurred”  by  the  amount  of  high  spatial-  frequency 
information  that  is  filtered  out.  Finally,  the  lowest  or  coarsest  level  appioximation  occurs 
when  all  frequencies  have  been  filtered  out  and  only  the  dc  component  of  the  signal  remains. 

In  multiresolution  analysis,  we  are  primarily  concerned  with  the  information  contained 
in  the  difference  between  levels  of  resolution.  In  the  case  of  filters,  the  difference  between  two 
lowpass  filters  whose  bandwidths  vary  by  a  power  of  two  is  a  bandpass  filter  with  a  bandwidth 
of  one  octave.  This  bandpass  filter  is  provided  by  the  Fourier  Transform,  ^(w),  of  the  wavelet 
function,  ^’(.t).  We  can  express  the  inner  products  of  Equation  3.31  as  the  convolution  of 
the  signal  with  the  wavelet  function  evaluated  at  2"^‘n  as  we  did  in  Equation  3.33. 

(/,02-(*-2~”‘7r))  =  l/*t(’2-(-»)l(2-"*n)  (3.36) 

Figure  3.5  shows  a  typical  scaling  function,  <l>{x),  and  the  corresponding  low  pass  filter, 
^(.0,  its  Fourier  Transform.  Here  /  denotes  frequency  measured  in  Hertz,  not  the  function 
/  used  previously.  Figure  3.6  shows  the  wavelet  function,  ^(x),  wiiich  corresponds  to  the 
scaling  function  of  Figure  3.5.  It  also  shows  the  bandpass  filter,  '!'(/),  the  Fourier  Transform 
of  0(j;).  Tliese  filters, '!'(/)  and  4>(/)  correspond  to  the  same  level  of  resolution  or  scale. 
Superpositioning  them,  creates  the  lowpass  filter  of  the  next  higher  level  of  resolution.  Simi¬ 
larly,  adding  the  next  bandpa.ss  filter  will  create  the  next  lowpass  filter  and  so  on.  Therefore, 
any  signal  or  image  can  be  decompjosed  into  a  set  of  signals  or  images  each  containing  a 
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one  octave  bandwidth  of  the  original  signal  or  image.  In  this  manner,  we  can  construct  a 
bank  of  bandpass  filters  from  a  mother  wavelet  for  the  purpose  of  wavelet  decomposition. 
Furthermore,  if  we  choose  our  mother  wavelet  to  be  orthonormal,  the  resulting  bandpass 
filters  will  completely  cover  the  frequency  plane  such  that  the  information  content  of  each 
signal  or  image  in  the  decomposition  is  unique.  A  major  advantage  to  the  filtering  approach 
as  opposed  to  the  projection  approach  is  the  decrease  in  computational  time  complexity  of 
the  decomposition  process.  Using  a  Fast  Fourier  Transform  (FFT),  the  scale  and  wavelet 
coefficients  are  computed  in  0(nlog(n))  time.  Alternately,  using  spatial  convolution  when 
the  size  of  the  filter  functions  are  much  smaller  than  the  length  of  the  signal  0{n)  time  is 
required,  where  n  is  the  number  of  samples  in  the  signal. 


3.8  Two  Dimensional  (2D)  Wavelet  Transform 

The  Wavelet  Transform  can  be  extended  from  one  dimension  (ID)  to  n  dimensions, 
n  >  1.  For  image  processing,  we  need  a  2D  Wavelet  Transform  to  map  images  from  the  space 
domain  to  the  space/spatiai-frequency  domain.  Mallat’s  Theorem  1  is  valid  lor  L‘(R‘)  and 
there  exists  a  scaling  function  ^{x,y)  whose  dilations  and  translations  are  an  orthonorma' 
basis  for  L^(R^)  [22:682].  The  symbol  $  is  used  here  for  consistency  with  referenced  material 
and  should  not  be  confused  with  the  Fourier  Transform  of  (j)  denoted  previously  with  this 
symbol.  The  <P{x,y)  can  be  a  separable  or  a  inseparable  function.  We  will  discuss  the 
separable  case  in  wdiicli  is  written  as  a  product  of  two  identical  ID  scaling  functions. 

^x,y)  =  <f>{x)((>{y)  (3.37) 

For  the  separable  case,  the  multiresolution  projection  approximations  of  th  r  image  at  level 
m  can  be  obtained  from  the  following  set  of  innei  products 

A,„/(x,  y)  =  (  2”"’  ~  2~"’nji )</>„,(»  -  2""'7?.2 ))</>, n(x  -  T-"'ni)4>„f  y  -  2”"‘7i2)  | 

(3.38) 

Heie  we  use  the  same  777.  and  n  in  both  x  and  y  since  we  dilate  and  shift  equally  in  both 
dimensions.  However,  in  the  more  general  case  x  and  y  could  be  shifted  and  dilated  inde 
pendently. 

Wc  obtain  the  detail  image  just  as  in  the  ID  case  in  Equation  3.31.  The  detailed  image 
at  resolution  in  is  equal  to  the  orthogonal  projection  of  the  2D  function  on  the  orthonormal 
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complement,  O^,  of  V^-  The  orthonormal  basis  of  Om  is  composed  of  the  three  wavelet  basis 
functions  which  we  construct  from  the  ID  scaling  function,  <f>, 

and  its  corresponding  wavelet,  rj)  [23:683].  The  symbol  $  is  used  here  for  consistency  with 
referenced  material  and  should  not  be  confused  with  the  Fourier  Transform  of  V’  denoted 
previously  with  this  symbol. 

=  (3.39) 

^  i’m{x)(t>,n{y)  (3.40) 

'^l,{x-,y)^'4’m{x)il}^{y)  (3.41) 

There  is  one  detail  projection  for  each  of  the  three  wavelet  bases.  Applying  Equation  3.31 

to  each  yields  [23:684] 


DU{x,y)=  (2-"'  Y.  E(/’^2".(*-2-"*n,,.-2-”*n2))$J„(x-2-"‘ni,y-2-”‘n2)'j 
DUix,y)=  (2-'’;  Y  E(/’’“^2">(*-2-'"»i,«-2-'”n2))4'^4x-2-"*ni,y-2-'"n2)) 

\nj€2r‘3€Z  / 

I 

D'U{x,y)=^  (2-"^  Y  I](/’^2".(*-2-'"n,,«-2-"‘n2))4'>„(x-2-'”ni,y-2-"’n2)) 


meZ 

(3.42) 


mCZ 

(3.43) 


m6Z 

(3.44) 


The  image  can  then  be  completely  represented  at  any  level  of  resolution  m  —  1  by  sum- 
iTiing  A,nf  and  D'^J  for  i  =  1,2,3.  Figure  3.7  shows  an  approximation  of  the  locations  of 

rT>rr/icr>r\nrlinn  lm»rr»2ico  2»o/4  Konrlrvioo  OO  ^  1  <-»v%  4- 1%  OT^ 

ru' A  «.a>v/v.»  >t4VV/4k>  AVJL  VllV'  V4V^V--VHi  MVJoi  lljtyil  Jli 

frequency  domain.  This  figuie  demonstrates  the  spatial  orientation  of  each  bandpass  filter. 
The  filter  formed  by  4'*(u;j;,tuy)  is  oriented  horizontally,  ^^(w-jWj,)  vertically,  and  ^^((.Ui.,u;j,) 
diagonally,  in  many  image  processing  applications  it  is  de.sirable  to  obtain  a  representation 
v/hich  is  not  only  a  space/spatial-frequency  representation  but  also  is  sensitive  to  specific 
orientations.  Although  Maliat  generates  three  orientations  as  represented  by  the  three  detail 
signals  of  Equations  3.42  through  3.44,  recent  work  by  Cohen  and  Schlenker  at  AT&T  Bell 
Laboratories  saggc'si  more  are  possible  [5], 
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Figure  3.7.  Orientation  of  Wavelet  Decomposition  Filters  in  the  Fourier  Domain  [14:65] 


3.9  Conclusion 

The  predominate  tool  in  signal  analysis  for  the  past  three  decades  has  been  the  Win¬ 
dowed  Fourier  Transform.  It  provides  a  representation  of  signals  in  the  tirne/frequency 
domain.  However,  this  transform  uses  a  constant  size  window;  thus,  it  provides  only  a  fixed 
resolution  of  the  location  of  the  frequency  characteristics  of  a  signal  in  the  time  domain.  A 
new  engineering  tool,  the  Wavelet  Transform,  provides  an  alternative  by  using  multiple  sized 
windows  effectively  trading  resolution  in  tinre  for  resolution  iu  frequency  for  applications  in 
which  localization  of  frequency  characteristics  in  time  is  more  important  for  high  frequencies. 


IV.  Multiresolution  Analysis  Algorithms 

4.1  Introduciion 

This  chapter  discusses  two  different  approaches  to  using  wavelets  in  multiresolution 
arialysis.  It  is  the  result  of  a  combined  effort  with  John  (Stewart)  Laing  and  exists  in  du¬ 
plicate  in  his  thesis  [19].  The  first  approach  uses  the  scaling  function  associated  with 
a  mother  wavelet  ^/){x)  to  decompose  an  image  into  successive  and  Wm  space  projec¬ 
tions  where  and  are  vector  spaces  in  L^(R)  (see  Chapter  III)  and  are  orthogonal 
compliments  of  each  other  in  the  next  larger  space  The  second  approach  uses  a  set 

of  quadrature  mirror  filters  H  and  G  constructed  from  a  mother  wavelet  and  its  cissociated 
scaling  function  to  decompose  a  signal  or  image  into  sets  of  coefficients.  These  coefficients 
cha^-acterize  the  V  and  W  space  projections.  Following  the  discussion  of  each  approach,  we 
include  implementation  examples  in  support  of  the  theoretical  explanations. 


4.2  Multiresolution  with  Approximations 

This  section  discusses  our  implementation  of  multiresolution  decomposition  using  the 
Haar  wavelet  bases.  First  it  defines  the  Haar  function  as  an  orthogonal  wavelet  basis  suitable 
for  multiresolution  decomposition.  Then,  it  explains  our  implementation  of  decomposition. 
Finally,  we  provide  .an  example  decomposition  using  our  decomposition  program. 


4.2.1  V  space,  W  space,  and  Ho.ar  basis.  In  one  dimension,  the  Haar  mother  wavelet 


is  defined  <is  follows; 


xp{x) 


1  if  0  <  X  <  ^ 
^  -1  if  i  <  .T  <  1 
0  otherwise 


(4.1) 


The  one  dimensional  scaling  function  that  corresponds  to  the  Haar  mother  wavelet  is  defined 
as  follows. 


4>{x) 


1  if  0  <  X  <  1 
0  otherwise 


(4.2) 


Hn  this  chapter,  the  symbol  replace,*;  tiie  mymbol  O,,,  used  in  Chapter  HI,  Section  3.3. 
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The  two  dimensional  scaling  function,  $(x,  y),  is  the  product  of  ^(x)  and  (p{y),  where  4f{x,y) 
is  a  two  dimensional  rectangular  function.  In  general,  $  is  scaled  by  an  amount  proportional 
to  the  length  of  its  interval  of  support,  /,  where  its  values  are  non-zero.  In  the  dyadic  case, 
the  length  of  the  interval  of  support  is  given  by 

{ICI  =  (4.3) 

for  the  shift  n  and  the  level  m.  We  use  the  convention  that  level  0  is  the  finest  resolution 
level.  This  means  that  the  projection  in  the  Vq  space  represents  the  image  at  its  original 
sample  density.  In  this  case,  the  shift  interval  for  the  <f>  and  V’  functions  is 


la  =  1 


(4.4) 


which  is  equal  to  the  sample  size  of  the  image,  one  pixel.  The  scale  factor  is,  therefore, 

NoW;  we  can  write  an  expression  for  the  one  dimensional  with  the  proper  scale  factor  as 


follows 


^  if  X  e 

0  otherwise 


(4.5) 


From  Equation  4.5,  we  build  a  two  dimensional  scaling  function  with  the  product  mentioned 
above  as  tui'ows 


2-  X,y6i" 

0  otherv/ise 


(4.6) 


Therefore,  our  convention  allows  us  to  easily  derive  the  size  of  <p  in  terms  of  its  interval 
of  support  from  2“'",  where  ni  is  the  level  of  resolution.  As  mentioned  above,  the  finest 
resolution  level  corresponds  to  m  =  0  and  is  contained  in  the  vector  space  K,.  The  maximum 
resolution  level  is  also  easily  found.  This  is  done  by  finding  log2(A^)  where  N  is  the  size  of 
the  NxN  image  under  analysis.  For  example,  if  the  image  is  512x512,  the  largest  4>  that 
will  fit  completely  on  the  image  is  512x512.  Since  tlie  size  of  $  is  related  to  the  level  by 
2“"",  we  find  in  by  taking  log2(A').  In  this  example,  that  would  be  log2(5l2)  —  9.  Therefore, 
all  contributing  levels  of  resolution  range  from  zero  to  nine,  where  level  zero  is  the  finest 
resolution  and  level  nine  is  the  coarsest.  Though  level  zero  is  exactly  the  original  image,  we 
will  continue  to  consider  it  for  programming  convenience. 

The  projection  on  the  vector  space  Kn  of  the  image  f(x,y)  or  the  approximation  of 
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the  image  at  the  level  of  resolution  ii: 


characterized  by  the  set  of  coefficients,  {c^}  where 


(4.7) 


Then,  the  projection  is  given  by 


^m/(®,J/)  =  X]c"<I>"(x,j/)  (4.8) 

n 

Given  that  the  orthogonal  complement  in  K„_i  of  the  vector  space  Vm  is  which  means 
that  =  Kn-i  ~  Kn;  we  can  find  the  projection  of  the  image  onto  the  vector  space  Wm 
from  Equation  3.29.  It  is  possible  to  calculate  the  wavelet  coefficients,  dJJj,  that  characterize 
the  projection  into  the  orthogonal  vector  spaee  VE,,;  in  a  manner  similar  to  Equation  4.7 
using 

^  =  (n,/)  (4.9) 

where  ^(a:,t/)  =  ip{x)^{y)  But  this  is  not  necessary  since  we  can  find  the  projections  Df{m) 
more  directly  from  Equation  3.29 

4-2.S  Haar  Transform  Program  The  data  flow  diagram  in  Figures  4.1  and  4.2  shows 
the  operation  of  the  Wavelet  Decomposition  program,  wave.  This  program,  is  written  in  the 
ANSI  standard  C  programming  language.  It  reads  in  an  image  from  an  ASCII  file  and  writes 
it.s  output  to  ASCII  files;  the  coefficients,  the  projections  in  E space,  and  the  projections 
in  W  space.  The  number  of  files  produced  is  determined  by  the  size  of  the  input  image  to 
be  decomposed.  For  example,  the  image  of  Lenna  shown  in  Figure  4.3  has  a  resolution  of 
480x512  pixels.  Therefore,  ten  files  each  will  be  produced  for  the  $  coefficients,  the  V  space 
projections,  and  the  IE  space  projections.  The  ^  coefficients  are  calculated  by  taking  the 
inner  product  of  the  appropriate  level  ^  and  the  image,  Equation  4.7.  The  projections  of 
the  input  image  onto  the  V  space  are  found  by  muitiplying  the  4*  basis  by  the  ^  coefficients, 
Equation  4.8.  Then,  the  projections  in  the  W  space  are  found  from  the  difference  of  V  space 
projections  at  adjacent  levels.  Equation  3.30.  I  he  source  code  for  the  luave  program  is  made 
up  of  ten  files.  They  are  provided  in  their  entirety  in  Appendix  A. 2. 


4-3 


Figure  4.1.  Dataflow  Diagram  of  the  Wavelet  Decomposition  Program,  First  Level 


4.2.3  An  Example  Decomposition  We  subjected  a  480x512  sampled  image  of  Lenna 
to  the  Haar  transform  program  and  printed  her  projections  in  the  V  spaces  and  the  W 
spaces  for  resolution  levels  one  through  nine  according  to  the  convention  established  above 

rt'nr^>  A  A  tlirr'ina-Vi  A  1 

The  W  space  projections  are  made  viewable  bv  adding  255  to  their  gray  scale  values 
and  dividing  the  sum  by  two.  This  process  centered  the  values  about  128  instead  of  zero. 
The  low  energy  contained  in  the  W  space  projections  is  as  expected,  since  it  represents  only 
that  part  of  the  image  which  correlates  to  the  ^  of  the  corresponding  level.  In  other  words, 
only  small  amounts  of  the  whole  image  lie  in  the  scale  bandwidth  of  the  corresponding  scale 
of  rf.'  at  that  level  of  resolution.  The  projection  onto  Hj  =  Vo  -  Vi  space  showed  only  the 
high  frequency  information,  changc.s  that  occurred  within  the  Haar  interval  of  support  or  a 
2x2  pixel  area.  This  is  seen  '.n  Figures  4.10  through  4.15  in  whicli  six  projections  onto  the 
W  spaces  are  shown.  On  the  other  hand,  the  V  space  projections  get  progressively  blurrier 
with  larger  tn,  corresponding  to  coarser  levels  of  resolution.  They  represent  all  frequencies 
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of  the  image  from  the  dc  component,  Vg,  to  the  current  level.  All  V  space  projections  of 
coarser  resolution  are  contained  in  a  V  space  projection  of  finer  resolution,  smaller  m  (See 
Figure  4.4  through  4.9). 


WAVELET  DECOMPOSITION 
PROGRAM 


PHI 

COEFFICIENTS 


^  V  SPACE 
PROJECTIONS 


W  SPACE 
PROJECTIONS 


Figure  4.2.  Dataflow  Diagram  of  the  Wavelet  Decomposition  Program,  Second  Level 
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Figure  4.6.  Projection  of  Leniia  onto  V3 
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Figure  4.11.  Projection  of  Lenna  onto  W2 
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Figure  4.12.  Projection  of  Lenna  onto  VV3 
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Figure  4.13.  Projection  of  Lenna  onto  W4 
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m 


Figure  4.15.  Proje-  tion  of  Lenna  onto  We  ^ 


i 
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4-S-4  Histograming  To  view  the  histogram  of  grey  scale  values  of  the  projected  im¬ 
ages,  the  Khoros  signal  and  image  processing  system  developed  at  the  University  of  New 
Mexico  [31].  Figures  4.16  and  4.17  show  the  resulting  histograms  of  the  original  Lenna  im¬ 
age  and  the  first  three  levels  of  the  V  and  W  projections.  These  results  show  how  the  V 
space  projections  contain  a  wide  variety  of  grey  scale  levels  compared  to  the  W  projections. 
Therefore,  the  W  space  projections  would  be  a  good  choice  of  representation  from  which  to 
code  and  compress  the  original  image. 


4-2.5  Thresholding  The  histograms  discussed  above  provide  a  good  measure  of  the 
grey  scale  values  that  are  important  to  the  information  content  of  the  image.  For  example, 
the  histogram  of  the  Wi  projection  shown  in  Figure  4.10  shows  that  most  of  the  information 
content  of  the  image,  the  essence  of  Lenna,  is  contained  in  a  relatively  small  number  of  pixels 
in  a  small  range  of  grey  scale  values  to  either  side  of  grey  scale  value  128.  To  isolate  this 
information  from  the  vast  amount  of  data  required  to  represent  the  entire  512x512  image, 
we  developed  a  routine  called  threshold  to  eliminate  or  zero  out  the  large  number  of  pixels 
in  the  ^  t  y»  i « ire 
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scale  values.  If  a  grey  scale  value  falls  within  the  thresholding  window,  it  is  set  to  white  or 
255,  and  if  a  grey  scale  value  is  outside  the  threshold  window,  it  is  set  to  black  or  0.  Figures 
4.18,  4.19,  and  4.20  shows  the  results  of  executing  the  threshold  program  on  the  first  three 
levels  of  W  space  projections.  These  figures  demonstrate  the  edge  detection  capability 
of  a  Multiresolution  Wavelet  Decomposition.  These  images  were  produced  by  chosing  to 
eliminate  all  grey  scale  values  between  131  and  125.  The  threshold  routine,  whose  source 
code  is  listed  in  the  Appendix  F.2,  allows  the  user  to  select  the  upper  and  lower  bounds  of 
grey  scale  values  for  thresholding. 


4-3  Mvltiresolution  with  Filters 

This  section  briefly  reviews  Mallat’s  multiresolution  approximation  algorithm  [23:677]. 
It  also  expands  on  selected  areas  of  his  paper  that  are  vague  or  incorrect.  Because  the  theory 
of  multiresolution  analysis  is  covered  in  Chapter  II  of  this  thesis,  we  begin  here  with  the 
specifics  of  Mallat’s  algorithm.  The  specific  equations  referenced  in  this  section  are  taken 
directly  from  Mallat's  paper  [23]. 

4-3.1  Multircsolution  Dcconiposition  In  Mallat’s  Equation  (10)  [23:677],  he  gives  the 
“orthogonal  projection”  of  a  signal  /(t)  onto  a  scale  space,  V,  of  an  arbitrary  level  of 
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Figure  4.18.  Lenua’s  Projection  Thresholded 


resolution,  2^  for  j  6  Z  as 


+00 

A,, fix)  =  2~^  Y.  UAvi*  -  2-^n))<f>^ix  -  2-^n), V/  G  L=(R)  (4  10) 

T7.=  — OO 

Then  in  Equation  (11)  [23:677],  he  adds  a  superscript  d  to  his  notation  indicating  that  the 
inner  product  of  this  equation  is  a  “discrete  approximation”  of  /(x)  at  the  given  level  of 
resolution.  Mallat’s  Equation  (11)  is  just  that  inner  product. 

Ail f  —  {{f ,<l>2ji*  —  ^  '^>^))}nez  (4-11) 

The  discrete  set  of  inner  products  in  Equation  4.11  is  the  set  of  scaling  function  coefficients 
previously  given  in  this  thesis  in  Equation  4.7  as  c"  where  n  corresponds  to  Mallat’s  n  and 
7n  corresponds  to  his  j.  From  this  point  on  in  his  paper,  Ma'.lat  refers  to  this  set  of  inner 
products  as  “the  image”.  While  his  explanation  is  easy  to  miss,  it  is  true  that  he  treats 
a  discretely  sampled  signal  or  image  as  being  equivalent  to  the.se  coefficients  at  the  finest 
level  of  resolution  without  ever  taking  the  inner  product.  In  other  words,  he  considers  the 
sampling  process  of  the  original  analog  signal  or  image  to  be  an  approximation  of  that  signal 
or  image  at  the  finest  level  of  resolution,  sample  density,  allowable  by  the  sampling  device 
(ie.  digitizer  or  scanner).  He  treats  this  set  of  samples  as  equivalent  to  the  scaling  function 
coefficients  at  the  finest  level  of  re.solutioii,  j  =  0.  We  have  adopted  his  convention,  but 
include  here  a  brief  explanation  that  considers  the  digitally  sampled  signal  or  image  as  the 
projection  of  the  original  analog  signal  or  image  onto  the  scale  space,  V-^;,  where  ;'  =  0  as 
the  finest  level  of  resolution  corresponding  to  the  sample  density  of  our  input  data.  This 
approach  would  add  two  steps  to  Mallat’s  algorithm  —  one  at  the  beginning  to  perform  the 
inner  product  with  <j>2o{x  —  n)  and  one  at  the  end  to  perform  the  discrete  sum  that  projects 
the  reconstructed  scaling  function  coefficients  onto  the  scale  spiace  at  level  j  —  0.  Performing 
the  inner  product  of  Equation  4.11  via  convolution  the  level  y  =  0  scale  coefficients  are 

A'//  =  {(/Wd(-*))(n)},.ez  (4.12) 


for  one  dinusisiori  and 


A'if  =  {(/  *  </u(-*)  +  f/'i (-•))(«, rrOlrcmcz 


(4.13) 
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for  two  dimen^  ons.  Obtaining  the  scale  space  projection  from  these  coefficients  at  the  end  of 
reconstruction  is  just  as  straight  forward  if  we  think  of  (j){x)  as  a  discretely  sampled  function 
with  k  samples.  For  illustration,  replace  the  continuous  variable  x  with  the  discrete  variable 
k.  Then,  inserting  Equation  4.12  into  projection  Equation  4.10  yields 

OO 

Ai/W=  E  (4.14) 

n=— OO 

which  is  the  rectangle  approximation  of  the  Riemann  integral  of  the  convolution 

((Aj/)(n)  .  M«)m  (4.15) 

Using  Equation  4,15  as  the  final  step  in  our  multiresolution  reconstruction  program,  we 
obtain  the  discrete  inultircsolution  approximation  of  the  original  signal.  The  two  dimensional 
form  of  Equation  4.15  using  the  discrete  variables  k  and  I  in  place  of  the  continuous  variables 
.T  and  y  respectively  is 

Ai/(fc,  /)  =  ((Af/)(n,  m)  *  <f)x{n)  *  <j)i{m)){k,  1)  (4.16) 

Because  these  extra  steps  ado  no  additional  accuracy  to  Mallat’s  multiresolution  analysis 
algorithm,  we  omit  them  as  he  did.  However,  their  explanation  provides  a  clearer  transition 
from  the  theory  discussed  earlier  in  this  thesis  to  the  implementation  described  in  this 
chapter. 

in  his  Equation  (15)  [24:677],  Mallat  introduces  the  “discrete  lilter”,  //,  “whose  impulse 
response  is  given  by”,  k{n).  In  this  thesis,  we  will  refer  to  h{n)  as  a  response  function  and 
refer  to  11  as  a,  filler.  Mallat  shows  in  the  one  dimensional  case  that  the  set  of  scale  coefficients 
A'^jf  at  resolution  level  j  can  be  found  by  convolving  the  response  function  li{n)  with  the 
set  of  scale  coefficients  A^,+i/  at  the  previous  level  of  resolution  j  +  1  and  evaluating  the 
result  at  even  values  of  the  argument  n.  Our  interpretation  of  his  Equation  (16)  [23:678]  is 

A^'./  =  {(A^h./Wi.)(2u)},,„cz  (4.17) 

where  h[n)  ~  h{—n).  After  this  point,  Mallat  frequently  uses  the  upper  and  lower  case  ‘IF 
interchangeably  even  though  the  ojieration  clearl}'  calls  for  a  space  domain  convolution,  not 
a  convolution  in  the  frequency  domain.  Equation  4.1  f  describes  the  decomposition  of  a  set 
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of  scale  coefficients  at  level  j  -f  1  into  the  set  of  scale  coefficients  at  the  next  coarser  level 
of  resolution  j.  The  detail  that  is  lost  In  the  multiresolution  transformation  is  described  by 
the  wavelet  coefficients  which  are  in  Mallat’s  notation  D2j/.  These  coefficients  are  found  by 
way  of  a  similar  multiresolution  transform  using  another  filter,  G,  whose  response  function 
is  g{n).  This  transform  is  given  by  Mallat’s  equation  (28)  [23:681]  and  is  interpreted  as 

{(-A-2J-*'/ *  5)(2»^)}j>,fc€Z  (4-18) 

where  g{n)  =  g{~n).  The  filters  G  and  H  have  the  following  relationship  [23:681] 

(j{n)  =  -  n)  (4.19) 


Notice  that  the  h{n)  and  </(?).)  are  reflected  about  n  =  0  and  shifted  relative  to  each  other. 
Even  though  the  convolution  operation  occurs  for  ail  shifts,  it  is  very  importanc  to  maintain 
the  relative  shift  ot  g{n)  with  respect  to  h{n).  In  other  words,  these  response  functions 
must  be  defined  to  have  a  relative  oTset  of  one,  as  shown  ui  Equation  4.19,  fot  whatever 
convolution  routine  is  used. 


Now,  armed  with  a  set  of  response  functions,  h{n)  and  g{n),  Equations  4.17  and  4.18 
can  be  implemented  iteratively  to  decompose  the  sca,le  coefficients  of  a  signal  ai  the  finest 
level  of  resolution  into  the  scale  coefricient.5  and  detail  coefficients  at  each  level  of  resolution. 
Because  the  number  of  scale  coefficients  diminishes  by  a  power  of  two  at  each  iteration,  the 
extent  of  this  decomposition  is  limited  by  the  size  of  the  response  functions.  For  example,  a 
signal,  f{x),  with  128  discrete  samples  decomposed  with  re.spoiise  function.s,  h{n)  and  g{n), 
that  have  li  samples  each  can  produce  scale  and  detail  coefficients,  Ag,/  and  Dzj/,  for  four 
levels  of  resolution.  At  the  fourth  level,  the  scale  coefficient  contains  only  eight  elements 
which  is  not  enough  to  meaningfully  convolve  with  the  ei  wen  element  response  functions- 

'J'he  response  function  /i(7i)  and  its  lowpass  filter  H  that  correspond  to  the  cubic  spline 
mother  wavelet  of  Figure  3.6  arc  shown  in  Figure  4.22.  Using  Equation  4.19,  we  derived  the 
res])on.se  function  g{n)  from  /i(u).  It  is  plotted  alo.'g  with  its  highpass  rdter  C  in  Figure 
4.22.  From  these  plots,  it  is  apparent  tha.t  li  is  a  low  pa.ss  filter  which  smooths  the  signal 
and  C  is  a  high  pass  filler  which  captures  the  details  lost  in  ihe  smoothing  process.  The 
algorithm  given  by  Equations  4.17  and  4.18  is  diagramed  in  Figure  4.21  which  is  redrawn 
from  [23:681]. 


4.3.2  Two  Dimensional  Multiresolution  Decomposition  The  two  dimensional  case  is  a 
natural  extension  from  one  dimension.  Equations  3.38,  3.42,  3.43,  and  3.44  give  the  scale  and 
detail  coefficients.  These  correspond  to  Mallat’s  Equations  (39)  through  (40)  [23:684].  Our 
interpretation  of  these  equations  when  the  response  functions  h{n)  and  g{n)  are  incorporated 
is  as  follows: 


Figure  4.21.  One  Dimensional  Multiresolution  Decomposition  [23:681] 


AiJ  =  {AUf){kJ)  *  h{k)  *  h{l)){2n,27n) 

(4.20) 

=  {AUmJ)  *  m  *  y(/)){2rt,2m) 

(4.21) 

=  {AU,f){k,t)*g(k)  *  h{l)){2n,2m) 

(4.22) 

D'if  =  ( Al+.  f){k,  1)  g{k)  *  ^(0)(2u,  2m) 

(4.23) 

for  6  Z  where  f{x,y)  6  L'^(R^)).  'I’he  scale  cocflicieiits,  A^,/,  become  succes¬ 

sively  smoother  versions  ol  themselves  and  the  details  that  are  lost  in  smoothing  are  captured 
in  the  three  sets  of  detail  coefficients,  D^,/,  jDijjj,  and  Each  of  these  sets  of  detail 

coefficients  represents  an  orientation  as  shown  in  Figure  3.7. 
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Figure  4.22.  Response  and  Filter  Functions  Based  on  Culuc  Spline  Wavelet 
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In  Equations  4.20  through  4.23,  separate  discrete  variables  k  and  I  are  used  to  empha¬ 
size  that  the  response  functions  h{n)  and  g{7i)  operate  on  rows  and  columns  independently. 
This  emphasis  plays  an  important  role  in  understanding  the  mistake  in  Mallat’s  Figure  12 
[23:685]  which  diagrams  the  two  dimensional  decomposition  algorithm.  There  is  an  incon¬ 
sistency  between  the  text  and  the  figure  that  we  resolve  in  the  following  manner.  First,  we 
correct  in  boldface  the  text  in  paragraph  A,  first  subparagraph,  fifth  sentence  to  read 

We  first  convolve  the  cols  of  with  a  one-dimensional  filter,  retain  ev¬ 

ery  other  row,  conlvolve  the  rows  of  the  resulting  signals  with  another  one¬ 
dimensional  filter  and  retain  every  other  column. 


Figure  4.23.  One  Dimensional  Multirosolution  Reconstruction  [23:682] 

Next  we  correct  his  Figure  12  exchanging  the  words  ‘columns’  and  ‘rows’  at  the  top  of  the  di¬ 
agram.  To  iiiKlerstand  wliy  these  corrections  are  necessary,  consider  the  independent  miturc' 
of  the  one  dimensional  convolutions  performed  on  rows  and  columns.  In  the  decompo.^^ition 
process,  the  rows/columns  and  respective  h{n)lg{ii)  convolution  pairs  must  be  the  same  as  in 
the  reconstruction  process.  In  other  woids,  the  reconstj  uction  and  decomposition  processes 
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must  be  mirrors  of  each  other.  Figure  4.24  diagrams  the  algorithm  given  by  the  pyramidal 
transforms  of  Equations  4.20  through  4.2.3.  Figure  4.24  is  Mallat’s  Figure  12  [23:685]  redrawn 
and  corrected. 


Figure  4.24.  Two  Dimensional  Multiresolution  Decomposition  [23:685] 


4.3.3  Muhiresolution  Reconstruction  In  his  Equation  (32)  [23:682],  Mallat  shows  that 
the  scale  coelRcicnts  at  any  level  j  can  be  reconstructed  from  the  scale  and  detail  coeffi¬ 
cients  from  the  adjacent  level  j.  Our  intei  jin  tation  of  this  equation  i.s 

A^f  -  2({Aif)(^)  *  l,{k))(u)  +  2i{D,,f){'^)*g{k))(n) 


(4.24) 


^  ■  ^."  1^  j^\»y 


This  equation  is  implemented  by  inserting  zeroes  between  each  sample  of  Ajj/  and  D2j  /  and 
convolving  the  results  with  h(n)  and  g(n)  respectively.  Finally,  the  convolution  results  are 
added  point  by  point.  The  factor  of  two  comes  from  the  way  Maliat  normalizes  his  response 
function  and  is  not  necessary  if  implementing  a  Daubechies  response  function  as  given  in  [9]. 
Figure  4.23  diagrams  the  algorithm  of  Equation  4.24.  This  figure  is  redrawn  from  Figure  7 
in  [23:682]. 


4.3.4  Two  Dimensional  Multiresolution  Reconstruction  The  reconstruction  of  a  func 
tion  f{x,y)  6  L^(R^)  from  the  coefficients  obtained  by  using  Equations  4.20  through  4.23 
is  a  natural  extension  of  the  one  dimensional  reconstruction.  We  apply  the  same  notation 
extended  to  two  dimensions.  Again,  we  use  the  discrete  variables  k  and  I  for  row  and  column 
operations  respectively.  It  is  important  for  the  rows/columns  and  h{n)/g{n)  reconstruction 
convolution  pairs  to  match  the  decomposition  convolution  pairs.  In  other  words,  the  recon¬ 
struction  must  be  a  mirror  of  the  decomposition.  This  point  is  illustrated  in  Equation  4.25. 
For  the  two  dimensional  Ccise,  the  reconstruction  equation  is: 


A^+i/  =  4((A^,/)(|,^)*A(A-)*/i(/))(n,m)  + 

4((F>2;/)(^,^)  *</(^')  *  h{l)){n,m)  + 

4((D2,/)(|,^)  +  *  </(/))(n,m)  (4.25) 

wheie  11,  m  e  Z. 

A  row  of  zeroes  is  inserted  between  each  row'  before  the  columns  of  each  coefficient 
set  is  convolved  with  the  designated  response  function.  Then,  a  column  of  zeroes  is  in¬ 
serted  between  each  column  before  the  rows  are  convolved  with  the  designated  response 
function.  Finally  the  convolution  results  are  added.  Again  th('  factor,  this  time  four,  is  for 
normalization  of  the  h{n)  for  the  cubic  spline  as  derived  by  Maliat  and  is  not  necessary 
if  implementing  Daubechies  /;(n)’.s  [9].  Figure  4.25  diagrams  equation  4.25.  I’his  figure  is 
adaj)ted  from  Figure  13  in  [23:686]. 

At  any  level  of  resolution,  the  scale  or  detail  coefficients  can  be  i>rojected  onto  the  scale 
or  detail  spaces  res jrec lively  by  using  the  genera!  form  of  liquations  4.15  and  4.16  given  here 
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Figure  4.25.  I'wo  Diinen-sioiial  Multiresolutioii  R  ’constructio]i  [23:686] 
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in  Equation  4.26  for  the  one  dimensional  case  and  in  Equation  4.27  for  the  two  dimensional 
case. 

A2j=^{{Ai){n)  {n)){k)  (4.26) 

Avf  {{Aij){n,7n)  *  <l>2i{n)  *  <f>27{m)){k,l)  (4.27) 

4-3.5  Fine  Points  Of  The  Implementation  of  the  Algorithm  This  section  will  address 
some  of  the  more  subtle  problems  which  we  encountered  in  the  implementation  of  the  mul¬ 
tiresolution  algorithm.  Readers  interested  in  Implementing  this  algorithm,  take  heed. 

4-3. 5-1  Missing  Coefficients  in  the  Reconstruction  The  Multiresolution  Algo¬ 
rithm  promises  an  exact  reconstruction  can  be  accomplished  from  the  retained  coefficients 
of  the  decomposition  process.  The  number  of  coefficients  of  the  approximation  Aijf  plus 
the  number  of  coefficients  of  the  detail  D2,/  should  be  equal  to  the  number  of  samples  of 
the  original  signal  or  image.  Since  we  generate  the  coefficients  with  the  shift,  multiply,  and 
sum  process,  there  are  always  more  coefficients  than  the  original  number  of  samples.  The 
number  of  resulting  coefficients  is  equal  to  the  number  of  samples  of  the  original  signal  plus 
the  number  of  elements  in  the  filter.  We  discard  the  least  important  coefficients,  those  that 
border  the  image  or  signal.  This  results  in  an  inexact  reconstruction  of  the  border  or  edge 
of  the  signal.  This  can  be  a  significant  problem  since  the  decomposition  process  results  in 
an  increasingly  smaller  number  of  coefficients.  Thus,  a  border  error  at  the  fifth  level  with 
respect  to  two  coefficients  will  result  in  a  reconstruction  error  spread  over  64  samples  of  the 
original  signal.  Mallat  suggests  the  border  problem  can  be  reduced  by  making  the  origi¬ 
nal  signal  symmetric  with  regard  to  the  first  and  )a.st  sample  or  in  the  2D  case  make  the 
image  symmetric  with  respect  to  the  horizontal  and  vertical  borders(23:68l].  This  process 
eliminates  the  border  problem  completely  if  the  filter  is  symmetric  and  the  reconstruction  is 
accomplished  with  the  same  assumed  border  symmetry  as  in  the  decomposition.  If  the  filter 
is  asymmetric  the  problem  may  only  be  alleviated  by  padding  the  image  with  enough  extra 
elements  to  retain  the  extra  convolution  coefficients. 

4. 3. 5. 2  Convolution  Methods  There  are  two  main  methods  of  accomplishing 
convolution.  The  first  is  to  calculate  the  so  called  “convolution  sum”  using  a  shift  multiply 
and  sum  routine,  fifiie  second  is  to  take  the  Fourier  'iransforrn  of  the  two  functions,  multiply 
them  |)oint  by  point,  and  take  the  inver.se  Fourier  Iransforni.  The  first  method  is  normally 
considered  s' ower.  It  ha.s  a  tiiiie  comi>lexity  of  O(N^)  assuming  that  the  functions  to  be 


4-34 


1 


convolved  are  the  same  size.  The  Fourier  Transform  method  used  with  the  Fast  Fourier 
Transform  (FFT)  has  a  time  complexity  of  O(NIogN).  In  the  multiresolution  algorithm,  the 
filters  used  are  normally  a  fraction  of  the  size  of  the  signal  or  image  of  interest.  This  enables  us 
to  reduce  the  time  complexity  of  the  shift  multiply  and  sum  routine  to  approximately  0(N). 
Therefore,  we  have  chosen  the  shift,  multiply,  and  sum  method.  However,  our  investigation 
of  the  Fourier  Transform  method  revealed  some  interesting  points  of  the  application  at  hand, 
which  we  include  for  the  benefit  of  the  reader  in  the  following  section. 

^.S.5.3  Numerical  Recipies  m  C  Convolution  Routine  The  convolution  routine 
in  Numerical  Recipies  in  C  is  a  function  called  convlv.  The  interface  to  this  function  requires 
the  response  function  have  an  odd  number  of  values  m  and  be  stored  in  an  array  in  “wrap 
around  order”.  Wrap  around  order  as  shown  in  Figure  4.26  requires  those  elements  of  the 
response  function  greater  than  or  equal  to  zero  on  the  discrete  time  (sample)  axis  to  reside 
in  that  order  in  the  first  positions  in  the  input  response  array,  “respns”.  Those  response 
elements  less  than  zero  on  the  discrete  time  (sample)  axis  must  be  stored  in  the  same  order 
in  the  last  positions  in  the  response  array.  If  the  same  variable  name  is  used  more  than  once 
to  hold  the  response  array  input  to  convlv,  it  must  be  reset  each  time  the  procedure  is  called. 
This  is  due  to  the  fact  that  the  response  array  is  altered  each  time  convlv  is  called.  While 
these  are  fine  points  in  the  use  of  the  convolution  routine,  they  must  be  exactly  followed  for 
successful  convolutions  using  Numerical  Recipies  in  C. 

4-3. 5-4  Problems  Encountered  Using  the  Khoros  System  All  of  the  images  used 
in  the  decomposition  analysis  v/ere  coi  iposed  of  integer  grey  scale  values  between  0  and  255. 
They  exist  in  a  floating  point  format  to  obtain  the  needed  accuracy  in  the  decomposition 
and  reconstruction  algorithm.  We  visually  evaluate  the  results  of  the  reconstruction  with  the 
Khoros  image  processing  system  provided  by  the  University  of  New  Mexico  [31].  The  first 
reconstructed  images  viewed  in  this  system  appeared  to  be  much  darker  than  the  original 
image.  After  analyzing  the  resulting  floating  point  values  of  the  reconstructed  image  we 
discovered  that  zero  gray  scale  values  in  the  original  image  corresponded  to  small  negative 
values  in  the  reconstructed  image.  Inherent  in  the  Khoro.s  display  system  is  a  normalization 
process  w'hich  coinjjresses  the  dynamic  range  of  the  rest  of  the  image  to  accommodate  the 
negative  numbers.  To  product-  a  more  x'isually  acceptable  reconstruction,  we  set  all  values 
less  than  zero  to  zero  and  greater  than  255  to  255. 
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4.3.6  Examples  The  Multiresolution  Decomposition  decomposes  an  image  into  a 
lower  resolution  approximation  and  three  detail  signals.  This  process  is  iterated  to  ob¬ 
tain  successively  lower,  coarser,  resoluticn  approximations  and  details.  This  section  along 
with  the  following  diagrams  will  demonstrate  this  process  and  provide  additional  insight  into 
the  frequency  content  of  these  approximation  and  detail  signals. 

Figures  4.28-4.30  show  the  detail  coefficients  from  a  decomposition  of  an  original  im¬ 
age  made  up  of  two  rectangular  boxes.  We  chose  this  image  for  its  pristine  vertical  and 
horizontal  high  frequency  content,  edges.  These  detail  signals  are  thresholded  and  binarized 
using  our  threshold  program  discussed  previously.  T1  ..e  figures  illustrate  the  edge  detection 


Figure  4.26.  Wrap  Around  Order  for  the  Convlv.c  Procedure 

caj)ability  of  inultiresolution  wavelet  analysis  and  the  orientation  selectivity  of  the  different 
detail  signals.  The  magnitude  ol  the  Fast  l  ourier  Transform  of  the  wavelet  detail  cocfTirieiits 
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in  Figure  4.32,  deinon.stra.tes  how  well  this  orientation  selectivity  is  accomplished.  The  orig¬ 
inal  image,  two  rectangular  boxes,  is  also  shown  in  the  figure.  These  plots  illustrate  how 
the  frequency  content  of  each  detail  signal  is  localized  in  terms  of  orientation.  The  Dj,/ 
coefficients  contain  the  horizontal  high  frequency  information,  the  D^j/  coefficients  contain 
the  vertical  high  spa,tial- frequency  information,  and  the  Dj,/  coefficients  contain  the  higher 
angular  frequency  information  of  the  original  image.  In  this  figure,  we  arbitrarily  chose 
level  j  =  —4  for  documentation  convenience.  All  levels  of  resolution  are  shown  to  have  this 
orientation  selective  characteristic  as  diagramed  in  Figure  3.7. 

Figures  4.33-4.39  illustrate  the  main  facets  of  the  multiresolution  decomposition  and 
reconstruction  process.  The  original  image,  512x512  Lenna,  is  given  in  Figure  4.33  for  a  com¬ 
parison  with  the  various  results  of  multiresolution  process.  Figure  4.34  is  the  reconstructed 
Lenna  from  a  5  level  decomposition.  The  successively  coarser  approximations  of  Lenna, 
are  shown  in  Figure  4.35  on  the  top  of  the  page.  Notice  the  reduction  in  size  as  a  result  of 
the  down  sampling  from  the  original  Lenna  Figure  4.33  (level  0)  to  the  first  approximation 
(level  1)  in  the  upper  left  corner  of  Figure  4.35.  The  bottom  of  Figure  4.35  shows  the  series 
of  reconstructed  approximation  of  Lenna.  The  final  reconstruction  (level  0)  is  found  in 
Figure  4.34.  The  coarsest  approximation  of  Lenna,  a  16x16  image,  is  shown  in  Figure  4.39. 
This  level  5  approximation  along  with  the  detail  coefficients  found  in  Figures  4.36-4.39  are 
used  to  accomplish  the  reconstruction.  Note  that  these  coefficients  have  been  thresholded 
to  make  the  orientation  specific  frequency  content  viewable. 
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the  decomposition  capability  of  the  projection  method,  although  reconstruction  is  possible. 
Basically,  the  V'  and  IF  space  projections  at  some  arbitrary  coar.se  level  of  decomposition 
are  added  point  by  point.  The  result  is  then  added  to  the  W  space  projections  at  the 
next  finer  level  of  resolution,  d'his  process  is  iterated  until  the  finest  level  approximation  is 
reached  n'sulting  in  the  final  reconstruction.  We  elected  not  to  j/ursue  Ibis  leclinique  due  to 
the  comput.atiorial  overhead  associated  witii  the  projection  of  every  set  of  the  decomjiosecl 
coeflicierit.s  onto  the  V  and  W  spaces  for  addition.  Instead,  we  chose  to  implement  the  recoil 
struction  with  t  lie  sera  nd  method  of  multiresoiution  a.na.lysis  described  In  t  his  chajitei ,  using 
Quadrature  Mirror  Filters  (QMFj.  In  this  method,  the  sets  of  scah'  and  wavelet  coeliicieuts 
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Fif^ure  1,33.  Oiigiiial  linage  of  lx*niia  (llcdiiaxl  2%) 
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Figure  4.35.  Multiresolution  Dceonipositivui/Reonstruclion  ApproxijriKtiojis  of  Lenna  Us-  | 

iiig  the  Cubic  Spline  Wavelet  (Actual  Size) 

i 
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Figure  4.38.  Angular  Multiresolution  Detail  Coefficients  of  Lenna  (Reduced  25%) 


]''igurc  4.39.  Coarsest  Approximation  of  Ixnina  Needed  for  Reconstruction  (Reduced  2o% ) 
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get  logarithmically  smaller  with  coarser  levels  of  resolution.  Moreover,  the  algorithm  does 
not  require  that  the  coefficients  be  projected  at  each  level  of  resolution.  For  these  reasons, 
we  use  the  QMF  method  as  the  tool  for  analyzing  the  data  in  this  thesis. 


4-4G 


V.  Experimental  Application  and  Results 


5.1  Introduction 

Tliis  chapter  explains  the  approach  and  methodology  used  to  segment  Synthetic  Aper¬ 
ture  Radar  (SAR)  imagery  and  Forward  Looking  InfraRed  (FLIR)  using  the  multiresolution 
approximation  representation.  This  chapter  first  reviews  the  objectives  of  this  thesis  re¬ 
search.  Second,  a  description  of  the  overall  system  approach  is  given.  Third,  criteria  for 
inultircsolution  feature  selection  is  explored.  Finally,  segmentation  results  using  different 
wavelets  are  given. 

5.2  Overview 

Thus  far,  the  background  of  a  wavelet  representation  and  the  ba.sics  of  artificial  neural 
network.s  have  been  explained  with  an  emphasis  on  their  usefulness  as  an  analysis  tool.  The 
purpose  of  this  research  is  to  use  these  tools  to  segment  SAR  imagery,  specifically,  to  seg¬ 
ment  different  homogeneous  regions  (trees,  fields,  and  shadow)  from  one  another.  The  goal 
in  general  is  then  to  determine  which  set  of  the  many  multiresolution  coefficients  will  provide 
an  adequate  set  of  features  to  enable  the  radial  basi.s  function  network  to  accomplish  seg¬ 
mentation.  Tlie  following  sections  address  the  application  of  these  tools  to  the  segmentation 
j)robleni. 

5.5  Methodology 

5.3.1  Jniroduclion  I'liis  section  is  coii.j)osed  of  five  parts.  The  first  part  gives  a 
brief  overview  cjf  the  total  segiuent.stion  system.  Ihe  second  part  explains  the  method  of 
selecting  wavelet  coefficients.  The  third  part  explains  the  rationale  for  using  receptive  fields. 
The  fourth  part  explains  the  j)rof  dun;s  for  training  the  Rl’F  neural  network.  The  fifth  and 
final  jiart  providers  inforination  regarding  tlic  SAR.  and  1' LIK  imagery. 


5.3.2  Approach  The  diagram  in  figure  5-1  represents  the  overall  segmentation  system. 
The  first  task  is  to  take  the  SAR  data  which  is  stored  in  884  format  and  convert  it  to  an 
ascii  format.  This  is  accomplished  in  four  steps.  The  first  is  to  use  rd884.c,  which  converts 
the  data  from  884  data  format  to  a  raw  floating  point  complex  pair  format.  Second,  the 
program  logb .  c  is  used  to  convert  the  complex  data  to  a  raw  byte  image  file  with  values 
between  0  and  255.  Both  of  these  programs  were  supplied  by  Sandia  Laboratories  and  are 
included  in  the  Appendix.  The  third  step  uses  the  Khoros  system  (provided  to  the  Model 
Based  Vision  Laboratory  by  the  University  of  New  Mexico)  to  convert  from  byte  format  to 


Figure  5.1.  Block  Diagram  of  .Segmentation  System 


labeled  ASCII  format.  The  final  step  of  .strij)ping  olf  the  labels  is  accomplished  by  the  the 


matrixtoascii .  c  program. 

'I'he  inia.ge  file  is  then  j)roces.scd  by  the  wavG2  i)rograin  which  uiilizes  Mallat’s  algo- 
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Figure  5.2.  Segmentation  System  Architecture 
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Level 

Detail  Signal 

Approximation  Signal 

Smallest  Detectable 
Change 

Cycles/Object 

Cycles/Object 

0 

N/A 

9-1024 

1  foot 

1 

1024-512 

0-512 

2  feet 

2 

512-256 

0-256 

4  feet 

3 

256-128 

0-128 

8  feet 

4 

128-64 

0-64 

16  feet 

5 

64-32 

0-32 

32  feet 

6 

32-16 

0-16 

64  feet 

7 

16-8 

0-8 

128  feet 

8 

8-4 

C-4 

256  feet 

9 

4-2 

0-2 

512  feet 

10 

2-1 

0-1 

1024  feet 

Figure  5.3.  Frequency  Content  of  Multiresolution  Levels 

rithm.  Details  of  the  wave2  program  can  be  found  in  the  Appendix.  One  of  the  resulting 
wavelet  coefficient  files  (note  that  these  files  are  formatted  as  if  they  were  each  an  image)  is 
selected  based  on  the  size  and  frequency  content  of  the  objects  or  regions  to  be  segmented. 
The  file  which  is  selected  is  then  partitioned  into  small  overlapping  receptive  fields  centered 
about  one  coefficient  value.  Initially  a  small  subset  of  the  image  is  used  to  train  the  network 
on  the  different  regions.  Following  network  training  the  entire  image  is  fed  through  the 
artificial  neural  network  and  each  coefficient  is  classified  as  a.  particular  type  of  region  and  is 
given  a  particular  gray  scale  value.  The  resulting  segmented  image  can  then  be  viewed,  using 
Khoros,  for  comparison  with  the  original  image.  A  diagram  of  the  total  system  architecture 
in  shown  in  Figures  5.1  and  5.2. 

5.3.3  Seleclion  of  Wavelet  Coefficients  The  multiresolution  representation,  as  devel¬ 
oped  in  Chapters  3  and  4,  can  be  viewed  as  filtering  an  image  with  a  set  of  low  pass  filters 
with  successively  narrower  bandwidths.  I’lie  information  lost  due  to  this  smoothing  process 
is  retained  in  the  detail  signal,  This  process  of  approximation  will  result  in  a  set  of  succes¬ 
sively  lower  resolution  representations  of  the  original  image.  Figure  5.3  shows  th<;  frequency 
conterit  of  the  various  resolution  levels  whicli  correspond  to  a  2048X2048  original  image.  The 
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Figure  5.4.  Characteristics  of  Various  Daubechies  H  Filters.  F)aub2(so]id),  Daub3(dots) 


Figure  5.5.  ChaiHcteristics  of  Various  Daul  reel  lies  H  FilU'is.  Daub4(dots),  Daub6(solid) 
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Figure  5.6.  Comparison  of  The  Spline  (solid)  and  Daubechies  (dots)  H  Filters 


highest  possible  frequency  in  a  2048X2048  image  is  1024  cycles/object  which  corresponds 
to  an  object  which  is  2  feet  (2  pixels)  wide.  This  correlation  of  pixel  size  to  the  actual  size 
of  an  object  is  possible  due  to  the  use  of  SAR  imagery.  Because  the  effective  view  of  SAR 
imagery  is  a  “God’s  eye  view”,  and  the  camera  angle  or  source  angle  doesn’t  create  a  skewed 
view,  the  density  of  pixels  per  area  is  constant.  For  example,  normally  a  camera  produces 
pictures  With  a  non-uniiorm  density  of  pixels  to  actual  area  iii  a  sceue.  Tliose  pixels  which 
correspond  to  near  objects  in  the  scene  cover  less  area  than  those  pixels  which  correspond 
to  objects  further  away.  One  pixel  might  correspond  to  1  foot  by  1  foot  resolution  of  the 
scene  for  near  objects,  while  another  pixels  may  correspond  to  a  10  foot  by  10  foot  area  for 
objects  furcher  away  in  the  scene.  These  non  uniform  density  of  pixels  to  area  effects  are 
not  found  in  SAR  imagery. 


The  assignment  of  cycles/objcct  to  a  iiarticular  level  is  a  direct  result  of  the  filtering 
process  and  the  down  sampling  required  by  Mallat’s  algorithm.  Figures  5.4  and  5.5  show 
the  roll-off  of  various  Daubechies  H  filters  which  represent  the  use  of  different  wavelet  basis 
sets.  Figure  5.6  compares  the  roll-off  of  a  Daubechic.s-6  H  filters  with  that  of  Mallat’s  cubic 
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Level 

Image  Dimension 

Total  Number  of  Elements 

0 

2048X2048 

4194304 

1 

1024X1024 

1048576 

2 

512X512 

262144 

3 

256X256 

65.536 

4 

128X128 

16384 

5 

64X64 

4096 

6 

32X32 

1024 

7 

16X16 

256 

8 

8X8 

64 

9 

4X4 

8 

10 

2X2 

4 

Figure  5.7.  Dimension  of  CoeHicient  Files  a  Different,  Levels 

spline  H  filter.  Note  that  the  higher  the  order  of  the  Daubechies  H  filter,  the  more  rapio 
the  rGii-off,  but  the  bandwidth  of  the  filter  remains  nearly  constant.  Figure  5.b  shows  the 
changing  band  widths  of  the  same  filter  with  the  down  sampling.  These  lower  resolution 
approximations  also  contain  only  one-fourth  as  many  coefficient  values  as  the  previous  level. 
Figure  5.7  shows  the  reduced  number  of  approximation  coefficients. 

The  result  of  this  process  is  to  suppress  objects  in  an  image  which  have  higher  frequency 
content  (smaller  objects  or  edges)  at  each  lower  resolution  level. 

5. 3-4  Choosing  The  Receptive  Field  Size  Once  a  particular  level  has  been  selected, 
feature.s  for  the  radial  basis  network  must  be  chosen.  The  overlapping  receptive  field  or 
window  mentioned  in  the  previous  section  dictates  the  number  of  features  used  to  classify 
a  single  coefficient  value.  This  can  be  seen  in  Figure  5.9  which  represents  a  distribution  of 
wavelet  coefficients  of  some  image  at  an  arbitrary  level.  The  center  value  in  the  3X3  receptive 
field  i,s  what  the  network  is  attempting  to  classify.  It  may  be  impossible  to  distinguish 
between  classes  liased  on  one  coeTicient  value  as  would  be  the  case  for  any  of  the  small 
white  blocks  in  Figure  5.9.  If  we  utilize  the  8  nearest  neighboring  coefficient  values,  of  any 
particular  coefficien*  value,  it  becomes  clearer  as  to  W'hich  class  each  individual  coefficient 
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Figure  5.8.  Filter  Band  Widths  With  Down  Sampling 


belongs.  This  method  does  has  difficulty  classifying  blocks  near  the  dashed  boundary  line 
in  Figure  5.9  which  is  between  the  two  different  types  of  regions.  If  we  reduce  the  size  of 
the  receptive  field  to  take  care  of  the  Vjoundary  problem  we  reduce  our  ability  to  distinguish 
members  of  the  homogeneous  classes.  The  Multiresolution  Representation  may  have  the 
needed  information  to  deal  wiih  this  problem. 

Depending  on  our  on^insl  cHoico  of  IovgIsj  IHg  Multirssolution  **,GprGSGiit3,tion  c^n 
provide  levels  of  greater  detail  of  these  ambiguous  regions.  For  example,  the  segmentation  of 
the  homogeneous  regions  (tree,  field,  and  shadow)  were  done  at  level  4  using  a  3X3  receptive 
field.  The  3X3  receptive  field  contains  9  coefficients  or  in  other  words  generates  9  features 
for  each  coefficient  value.  Each  coefficient  value  at  level  4  is  represented  at  level  3  (a  higher 
resolution  representation)  by  four  coefficient  values  and  at  level  2  by  eight  coefficient  values. 
These  additional  levels  of  detail  may  be  useful  in  defining  more  accurately  the  bounding  edge 
between  adjacent  regions.  The  limitation  on  the  number  of  training  vectors  did  not  allow  for 
explicit  testing  of  this  theory  while  segmenting  the  homogeneous  regions,  but  higher  levels: 
of  resolution  were  utilized  in  segmenting  t  he  roads  from  the  SAR  imagery. 
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Figure  5.9.  R<:^;e;,  iWe  Field  Sizes  For  Segmentation 


5.3.5  Data  For  Training  The  Radial  Basis  Function  Network  The  neural  network 
classifier  is  trained  by  presenting  to  it  samples  of  classified  data  known  as  truth  data.  Once 
this  training  process  is  completed,  the  network  then  attempts  to  classify  or  categorize  any 
presented  data  into  one  of  the  previously  learned  classes.  This  subsection  discusses  the  total 
amount  of  training  data  which  can  be  used  and  its  relationship  to  the  number  of  training 
samples,  the  number  of  features  per  sample,  and  the  number  of  classes.  The  specific  learning 
algorithms  used  by  the  RBF  network  can  be  found  in  [37]. 

There  are  two  main  rules-of-thumb  known  as  Foley’s  Rule  and  Cover’s  Rule.  Foley’s 
Rule  deals  with  the  relationship  between  the  number  of  features  per  training  vector  and  the 
number  of  total  training  vectors.  There  should  be  at  least  three  times  as  many  training 
vectors  per  class  as  there  are  features  per  vector.  Thus  a  3X3  receptive  field  would  have 
nine  features  per  vector  requiring  at  least  27  training  vectors  per  class.  Cover’s  Rule  states 
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that  if  the  total  number  of  training  vectors  for  a  two  class  problem  is  less  than  two  times  the 
number  of  features,  the  error  rate  on  the  train  set  w'ill  always  be  very  nearly  zero  with-out 
regard  for  the  distribution  of  data  [32:60].  This  indicates  that  training  results  (percent  error) 
on  a  sparse  set  of  training  data  will  not  necessarily  reflect  the  result  of  the  test  data.  The 
network  will  “memorize”  the  training  data  but  generalization  to  the  test  data  will  be  poor. 

The  RBF  neural  network  used  in  this  research  is  constrained  to  having  no  more  than 
200  training  vectors.  Each  of  the  vectors  may  contain  up  to  100  components  or  features 
[36].  Nearly  all  of  the  training  w'as  done  to  meet  or  exceed  the  rules  given  above  to  provide 
a  network  classifier  capable  of  robust  generalization. 

5.3.6  Imagery 

5.3. 6.1  Synthetic  Aperture  Radar  Imagery  The  1  foot  by  1  foot  resolution  SAR 
imagery  data  used  in  this  research  was  supplied  by  M!T/Linro!n  Laboratories  via  the  Model 
Based  Vision  Laboratory  at  Wright  Patterson  AFB.  Although  the  full  polarimetric  data  was 
available,  only  the  horizontal/horizontal  polarization  was  used.  Mission  85  is  almost  entirely 
composed  of  regions  of  trees,  field,  and  shadow.  All  of  the  SAR  imagery  was  histogram 
normalized  before  processing  and  display. 

•  mission  85,  pass  5,  frame  30  (m85p5f30hh) 

•  mission  85,  pass  5,  frame  29  (m85p5f29hh) 

•  mission  85,  pass  5,  frame  28  (m85p5f28hh) 

•  mission  85,  peiss  5,  frame  27  (m85p5f27hh) 

5. 3.6. 2  Forward  Looking  Infrared  Imagery  The  FLIR  data,  used  in  this  thesis 
was  provided  via  the  Model  Based  Vision  Laboratory  by  Texas  Instruments  (TI)  Corp.  The 
data  is  a  series  of  high-resolution,  8-bit,  FLIR  images.  The  collection  of  data  involved  moving 
and  stationary  targets  during  both  day  and  night.  All  of  the  imagery  was  taken  from  a  height 
of  approximately  1000  feet  along  a  previously  defined  flight  vector  [12:1]. 
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5./^  Segmentation  of  Homogeneous  Regions 

5.4-1  Selection  of  Wovelel  Coefficients  Recalling  that  we  wa/j-  to  segment  the  tree, 
field,  and  shadow  regions  shown  in  Figure  5.11  from  one  another,  it  is  necessary  to  find 
the  frequency  content  of  the  field  and  trees.  The  first  analysis  is  to  simply  look  at  the 
multiresolution  appro.ximations  of  the  the  SAR  imagery  and  notice  any  obvious  differences 
between  the  fields,  trees,  and  shadow  at  a  particular  level.  Figure  5.11  is  a  section  of  mission 
85  with  large  sections  of  trees,  field  and  shadow.  Figure  5.12  shows  the  approximation  from 
levels  1  through  4.  It  is  easily  seen  that  the  level  4  representation  (smallest)  of  the  image  had 
a  greater  visual  contrast  between  the  field  and  trees  than  any  other  level.  The  next  step  is 
to  investigate  the  frequency  content  of  the  tree  and  field  regions.  This  can  be  accomplished 
by  taking  the  Fourier  transform  of  a  small  area  of  trees  and  a  small  area  field.  In  Figure 
5.10  both  magnitude  plots  look  some  what  similar.  If  we  ignore  the  DC  component  (center 
spike),  the  only  significant  difference  is  that  the  trees  have  more  energy  concentrated  at  the 
center  of  the  frequency  plane  (lower  frequencies)  than  do  the  field.  These  lower  frequencies 
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are  between  1  and  2  cycles/object  taken  from  a  64X64  image  sample.  This  indicates  the 
size  of  the  tree  clusters  to  be  between  32  and  64  feet  long.  This  reinforces  the  previous 
observation  that  the  level  4  approximation  would  provide  a  good  set  of  features. 
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Figure  5.12.  512X512  SAR  Imagery  Multiresolution  Approximations  Using  The  Cubic 

Spline  Wavelet  (Actual  Size) 


5.4-S  Results  A  small  subsection  of  mission  85  is  shown  at  full  scale,  72  pixels  per 
inch,  along  with  the  segmentation  results  in  Figure  5.13.  Figure  5.14  is  a  reduced  version  of 
the  entire  2048X2048  mission  85  and  will  be  the  baseline  for  comparison  with  the  following 
images  segmented  using  different  wavelets.  The  correctness  of  the  segmentation  is  some¬ 
what  arbitrary.  That  is  to  say,  if  10  people  were  to  segment  m85  by  hand  there  would  be 
10  different  results  and  all  of  the  10  would  be  correct.  Additionally,  if  a  tactical  planner 
where  to  hand  segment  mission  85  he  or  she  miglit  segment  it  very  differently  than  the  10 
test  cases.  It  is  more  appropriate  in  these  expirernental  results  to  let  the  reader  judge  from 
his  perspective  if  the  results  are  useful  for  his  purposes.  Figures  5.15,  5.16,  5.17,  and  5.18 
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Figure  5.13.  Homogeneous  Regions  of  Interest  and  Their  Segmentation  (Actual  Size) 
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show  tlic  segmentation  of  homogeneous  regions  as  accomplished  by  the  spine  wavelet  and 
Daubechies  2,  3,  and  6  respectively.  Notice  in  Figure  5.15  small  regions  of  trees  throughout 
the  image  are  identified  and  segmented  as  trees.  This  is  are  the  case  of  the  other  three 
segmentations.  Because  the  filter  characteristic  of  the  Cubic  Spline  and  the  Daubechies 
wavelets  are  very  similar,  it  is  not  surprising  that  the  resulting  segmentations  are  also  similar. 
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5.5  Segmentation  of  Roads 

5.5.1  Selection  of  Wavelet  Coefficients  and  Receptive  Field  Size  The  segmentation 
of  roads  utilizing  the  RBF  network  w2ls  done  in  the  same  manner  as  the  segmentation  of  the 
homogeneous  regions  differing  only  in  the  approximation  level  and  receptive  field  size.  The 
section  of  SAR  imagery  used  to  segment  roads  , F  igure  5.19,  came  from  the  upper  left  hand 
corner  mission  85  (see  figure  5.14).  The  width  of  the  road  was  measured  to  be  between  8 
and  12  feet  across.  This  indicates  the  the  first  level  approximation  coefficients  can  provide 
a  good  set  of  features  to  accomplish  the  segmentation.  The  first  attempt  at  segmentation 
done  using  a  3X3  receptive  field.  This  resulted  in  finding  two  distinct  edges  instead  of  a  solid 
road.  The  next  attempt  weis  done  using  a  5X5  receptive  field.  Using  a  5X5  receptive  did  not 
provide  a  perfect  segmentation  but  it  was  able  to  segment  the  road  as  single  object  rather 
than  two  edgei.  To  provide  better  results  some  median  filtering  was  done  on  the  segmented 

rria,d  irnflire  TVfedian  fllterinr  is  dorif*  bv  m.ivjnff  a  windnw  alontr  th<=' 

the  pixel  which  is  being  processed  with  the  average  pixel  value  in  the  window.  This  process 
eliminates  some  types  of  noise,  but  preserves  edge  information. 

5.5.2  Results  Figure  5.19  is  the  original  section  of  the  image  without  any  scaling. 
F'igure  5.20  shows  the  segmentation  done  by  the  radial  basis  function  network  using  features 
from  level  1.  Figure  5.21  is  the  same  segmentation  after  a  median  filter  was  passed  over  it. 
The  road  is  admittedly  slimmer  but  stands  out  as  a  distinct  object. 


Figure  5.20.  Segmentation  of  Roads  from  M85  i 
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Figure  5.22.  FLIR  Imagery  Multiresolution  Approximations  Using  The  Cubic  Spline 
Waveiet  (Actual  Size) 

5.6  Segmentation  of  Man  Made  Objects  in  FLIR  Imagery 

5.6.1  Selection  of  Wavelet  Coefficients  The  segmentation  of  the  FLIR  imagery  utiliz¬ 
ing  the  RBF  network  was  done  in  the  same  manner  as  the  segmentation  of  the  homogeneous 
regions  and  the  roads  differing  only  in  the  approximation  level  and  receptive  field  size.  The 
selection  of  which  wavelet  coefficient  set  to  use  in  segmenting  smaller  man  made  objects 
out  of  an  image  is  a  more  complicated  decision  than  choosing  a  set  for  large  homogeneous 
regions.  The  decision  depends  on  the  size  of  the  features  chosen.  For  example,  one  could 
choose  to  use  an  entire  tank  as  a  feature.  This  would  require  a  large  enough  receptive  field 
to  cover  the  entire  tank.  An  alternative  approach  would  use  smaller  portions  of  the  tank  as 
features.  This  choice  would  require  a  receptive  field  the  size  of  track  wheels  or  perhaps  the 
size  of  the  engine  housing.  The  correct  set  of  approximation  coefficients  would  then  be  the 
set  which  contains  information  of  at  least  the  size  of  the  features  of  interest.  1  chose  to  use 
smaller  portions  of  t  he  tank  for  my  features.  Tlie  size  of  the  features  then  drove  the  decision 
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to  use  the  set  of  level  1  approximation  coefficients  (see  Figure  5.22).  A  3X3  receptive  field 
was  large  enough  to  extract  the  features  of  interest. 

5. 7  Results 

The  results  of  the  segmentation  process  are  shown  for  six  FLIR  images  along  side  the 
original  images  in  Figures  5.23,  5.24,  and  5.25.  Each  of  FLIR  images  contains  a  tank  at 
different  ranges  at  the  center  of  image.  Since  range  data  is  available  and  the  size  of  an 
object  of  interest  can  be  determined  at  a  particular  range,  a  less  than  perfect  segmentation 
such  as  Figure  5.24  can  be  useful. 
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5.8  Conclusions 


Segmentation,  feature  extraction,  and  classification  are  the  three  primary  taisks  which 
encompass  the  pattern  recognition  process.  These  task  are  in  general  very  difficult  to  accom¬ 
plish  and  require  large  amounts  of  time  and  computer  processing.  In  an  attempt  to  provide 
new  approaches  to  processing  and  to  improve  our  ability  to  autonomously  recognize  patterns, 
research  into  biological  visual  systems  has  been  pursued.  This  biologically  based  research 
has  suggested  that  visual  perception  is  constructed  from  small  pieces  of  the  whole  with  each 
small  piece  having  information  regarding  the  frequency  content  of  a  small  region  of  the  entire 
image.  This  approach  has  been  used  successfully  to  segment  natural  and  man-made  regions 
in  both  SAR  and  FLIR  imagery. 


The  predominant  tool  used  in  image  analysis  to  generate  spatial  frequency  representa¬ 
tion  of  images  has  been  the  2D  Windowed  Fourier  Transform.  It  provides  a  representation 
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utilizes  constant  sized  windows;  it  obtains  a  constant  resolution  in  space.  A  new  analysis 
tool,  the  Wavelet  Transform,  provides  an  alternative  by  using  multiple  sized  windows.  These 
multiple  sized  windows  trade  resolution  in  space  for  resolution  in  spatial- frequency.  These 
space/spatial-frequency  representation  of  small  regions  of  the  image  have  been  processed  by 
a  Radial  Basis  Function  (RBF)  artificial  neural  network  to  determine  the  difference  between 
natural  homogeneous  regions  (trc*es,  fields,  and  shadow)  and  man-made  objects  (tanks  and 
roads). 


The  Multiresolution  Decomposition  provides  a  representation  of  both  SAR  and  FLIR 
imagery  which  shows  similarities  in  homogeneous  regions  and  provides  features  for  segmenta¬ 
tion.  The  level  four  approximation  coefficients  can  accurately  segment  trees  from  fields.  This 
is  clearly  seen  in  Figures  5.15,5.16,  5,17  and  5.18  which  show  the  segmentation  of  naturally 
occurring  homogeneous  regions.  The  higher  resolution  approximations  provided  adequate 
features  to  segment  man  made  objects.  The  dirt  roads  found  in  the  SAR  imagery  (Figure 
5.21)  and  the  tanks  found  in  the  FLIR  imagery  (5.23,5.24,  and  5.25)  were  segmented  from 
the  surrounding  clutter. 
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5.9  Summary 

The  various  sets  of  coefficients  which  constitute  the  wavelet  representation  from  a 
multiresolution  analysis  provide  a  broad  enough  representation  to  segment  both  natural  and 
man  made  objects  of  varying  size  from  surrounding  clutter  in  both  SAR  and  FLIR  imagery. 


VI,  Conclusions  and  Recommendations 


6. 1  Introduction 

This  thesis  research  investigated  the  use  of  wavelets  and  artificial  neural  networks  to 
segment  high  resolution  Synthetic  Aperture  Radar  (SAR)  and  Forward  Looking  InfraRed 
(FLIR)  imagery.  The  specific  objective  was  to  find  a  reliable  method  to  segment  or  separate 
naturally  occurring  regions  such  as  tree,  fields,  and  shadows  as  well  as  man-made  objects 
such  as  tanks  and  roads. 

d.2  Major  Findings 

The  objective  of  this  thesis  research  was  to  answer  six  questions. 

•  How  is  the  Wavelet  transform  relaied  to  other  types  of  signal  or  image  analysis  tools? 

•  How  is  the  Multiresolution  Representation  obtained  or  calculated  for  a  signal  or  image? 

•  Do  the  multiresolution  coefficients  provide  values  which  can  be  used  to  separate  natural 
and  man-made  regions  within  both  SAR  and  FLIR  imagery? 

•  Which  set  of  coefficients  should  be  used  as  the  features? 

•  Can  the  Radial  Basis  Function  (RBF)  artificial  neural  network  be  trained  to  au¬ 
tonomously  segment  SAR  and  FLIR  imagery  using  the  wavelet  coefficients  as  features? 

•  Will  the  RBF  neural  network  segmentation  using  ihe  rnultiresolution  coefficients  as 
features,  generalize  to  all  areas  of  an  image?  If  so,  will  it  also  generalize  to  additional 
images  not  used  in  network  training? 

The  results  of  this  thesis  research  have  provided  a  basis  for  answering  the  above  ques¬ 
tions. 

•  The  Wavelet  transform  trades  resolution  in  space  for  resolution  in  spatial/frequency  in 
its  analysis  of  images.  This  concept  and  the  mathematical  l^asis  for  wavelet  analysis 
are  fully  explained  in  a  tutorial  manner  in  Chapter  3. 
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•  There  are  various  methods  of  generating  a  multiresolution  representation.  Chapter  4 
explains  two  methods  of  producing  this  representation.  Additionally,  the  Appendix  of 
this  document  contains  the  code  to  accomplish  a  Wavelet  transform, 

•  The  multiresolution  approximation  coefficients  were  sufficiently  different  for  both  natu¬ 
ral  regions  and  man-made  objects  to  accomplish  a  rudimentary  segmentation.  Prelim¬ 
inary  tests  produced  segmentation  of  regions  and  objects  using  standard  thiesholding 
techniques. 

•  The  approximation  coefficients  proved  to  be  more  useful  than  the  detail  coefficients. 
The  different  naturally  occurring  regions  in  SAR  imagery  contained  multiple  orienta¬ 
tions  and  the  three  orientations  of  the  detail  could  not  be  used  directly  as  a  means  of 
separating  regions.  The  bandwidths  of  the  various  levels  of  the  approximation  coeffi¬ 
cients  provided  the  decisive  element  in  region  segmentation. 

•  The  Radial  Basis  Function  artificial  neural  network  provided  a  tool  which  could  seg¬ 
ment  both  natural  regions  and  man-made  object  from  surrounding  regions  and  clutter 
in  SAR  and  FLIR  imagery  using  multiresolution  approximation  coefficients  as  features. 

•  The  RBF  network  was  able  to  generalize  to  different  geographical  regions  of  SAR. 
imagery  and  to  different  FLIR  images  within  a  series  of  images  of  the  same  object  at 
different  ranges. 

Additionally,  this  thesis  has  provides  an  excellent  introduction  and  analysis  of  the 
multiresolution  mathematics  and  a  system  to  generate  the  multiresolution  representations. 

6.3  Recommendations 

There  are  some  additional  areas  for  further  research  regarding  the  inultiresolution 
representation  of  imagery  and  its  utility  in  the  pattern  recognition  process.  The  RBF  network 
is  another  area  where  further  study  can  yield  benefits.  The  following  suggestion  are  made 
with  these  two  areas  in  mind. 
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•  The  small  number  of  draining  vectors  in  Zahirniak’s  RBF  network  was  a  limiting  factor 
on  the  size  of  receptive  fields  which  v/ere  used.  An  RBF  network  without  this  training 
vector  limitation  could  provide  for  using  larger  receptive  fields. 

•  The  Boundary  Contour  System  using  detail  coefficient  as  proposed  by  J.  S.  Laing  in  his 
thesis  [19]  could  provide  a  means  of  better  segmentation  of  roads  and  other  man-made 
objects  SAR  and  FLIR  imagery. 

•  The  design  of  a  system  which  would  use  both  the  detail  coefficients  and  the  approxima¬ 
tion  coefficients  could  provide  a  means  of  using  both  the  similarity  and  discontinuity 
approaches  simultaneously  in  image  segmentation. 

•  The  wavelet  representation  of  image  data  should  be  applied  to  the  task  of  classification 
or  categorization  of  man-made  objects. 

6.4  Summary 

The  ultimate  aim  of  this  resear  :h  wa.s  obtained.  The  wavelet  representation  of  image 
data  is  useful  for  segmentation.  The  wavelet  coefficients  should  also  be  explored  for  their 
application  to  other  tasks  in  the  pattern  recognition  process. 
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Appendix  A.  Multiresolution  Analysis  Using  Projections 

A.l  System  Description  of  the  WAVE  Program 

The  following  is  a  list  of  functioas  wh'ch  comprise  the  wave  program: 

1.  inain_wa\(e.c  -  The  main  driver  program  for  wave. 

2.  loadimage.c  -  A  routine  to  load  the  include  image  from  an  ascii  data.  file. 

3.  phi_gen_haar  .c  -  A  roi’t:''.e  that  builds  a  new  $  for  each  level  of  the  deei^mposition. 

4.  inner_prod.c  -  A  roucine  to  perform  the  inner  product  and  obtains  the  $  coefficients. 
It  generates  one  file  for  each  level  of  decomposition  with  the  suffix  .phicoef .. 

5.  v_pr  oj  ectioA .  c  -  A  routine  that  finds  the  projection  of  the  include  image  on  the  space 
Vn  where  m  is  the  current  level  of  decomposition.  It  generates  one  file  for  each  level 
of  decomposition  with  the  suffix  .v.project.. 

6.  w_proiection..c  -  A  routine  that  finds  the  projection  of  the  incl  de  image  onto  the 
space  Wfn  orthogonal  to  the  VA  space  where  m  is  the  current  level  of  decomposiion. 
It  generates  one  file  for  each  level  of  decomposition  with  the  suffix  .w_project.. 

7.  makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 

8.  j  sraacros  .h-  An  include  file  that  contains  macros  we  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F,1  for  listing). 

9.  macros  .h  •  An  include  file  thivi  we  borrowed  from  G.  Tarr.  It  contains  addition  macros 
used  throughout  our  code.  It  also  must  be  present  in  the  directory  where  the  compi¬ 
lation  takes  place  (Sec  Appendix  F,1  for  listing). 

10.  stewmath.h  -  An  include  file  containing  some  math  routines  specific  to  our  program. 
It  must  be  pre.sent  in  the  directory  where  complilation  takes  place  (Sec  Appendix  F.2 
for  listing). 
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Typing  “make”  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  file  called  wave  that  may  be  exe¬ 
cuted  by  typing  “wave”  at  the  command  prompt. 


A.S  Haar  Wavelet  Analysis  Software 
A .2. 1  Listing  of  MAIN-  WA  VE. C 


/***  WAVELET  AKALY2ER  HATH  PROGRAM  DRIVER  **/ 

/44**‘444*4444444*4444444***444**44<lt***4*4***-*444444444**4******44444  444**444/ 
/4*444***444*44*4*44*4*44*4444*t**4***4'f-**’lf4**4***4***44*4**444**44*444444*4/ 

/*  DATE:  09  April  91  */ 

/*  */ 

/*  VERSION:  1.0  */ 

/*  */ 

!■*  NAME:  main-wave ,  c  */ 

/*  ♦/ 

1*  DESCRIPTION:  This  program  performs  a  multiresoluti»/ji  wavelet  emalysis  »/ 

/♦  of  an  input  image  with  a  wavelet  from  its  internal  library  chosen  */ 

xnteract ively  by  the  user.  It  hantHes  the  iueiui  rnterface  wrth  the 
/*  usmt  and  drives  the  subroutines  that  tedce  inputs,  analyzes,  tind  */ 

h  procixes  output.  Currently  only  the  Haar  Wavelet  is  available  for  this  */ 

/*  program.  */ 

/*  */ 

/*  FILES  READ:  NONE  ♦/ 

/♦  */ 

/♦  FILES  WRITTEN:  NONE  */ 

/*  */ 

/♦  HEADERS  USED:  <6tdio.h>,  'macros. h",  " jsroacros .h"  */ 

/+  f/ 

/♦  CALLING  PROGRAMS:  NONE  f/ 

/♦  */ 

/♦  PROGRAMS  CALLED:  inageload. c,  innerprod.c,  phi_gen_haar . c ,  •+/ 

/♦  phi_gen_pl.c,  vproi.c,  wproj.c  +/ 

/*  */ 

/♦  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  ♦/ 

/♦  •/ 

HISTORY:  Initial  Version;  adapted  from  phivl.c  and  haarvl.c  */ 

/*  */ 


/  4i  4  >y  it>  4<  i|<  *  4>  4<  e  4' ^  I)!  *■  4' *  e  4.' it>  4>  4:  / 

/♦  DECLARATION  SECTION  *I 

1 4*444444444^44444**444444 1 

^include  <stdio,h> 

#incl\ide  '‘macros. h" 

#include  '* jsmacros . h" 
#include  "stewmath.h" 

int_array  loadi mage ( ) ; 

f loat_array  phi_gen_haar ( ) ; 
int_array  inner_prodO; 

int^array  v_projcctioii() ; 
int_array  w_proj  ecticn( ) ; 

1444444*4444444444444444/ 
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/*  HAIH  PROGRAM  BODY  */ 

void  maiii{argc,  argv) 
int  argc ; 
char  *argv[3 ; 

{ 

/*  initialize  variables  *J 

J^*it^^it^*t*****if*****iHHftf/ 


int  i,  Havelet_type,  level,  mazlevel; 

int .array  image,  phi.coef,  v.image,  lastv.image,  v.inage; 

float.array  phi; 

char  lilename[64] ,  load; 


/*  load  image  to  be  analyzed  */ 


if (argc  !=  4  M  argc  !=  1){ 

printf ("Usage :  wave  <filename>  <#  of  Rows>  <#  of  ColB>\n"); 
exit(O) ; 

> 


image  =  loadimage(f ilename,  argc,  argv); 
maxlevel  =  L0G2 (image. ROW ) ; 


/*  This  section  performs  the  wavelet*/ 
/•  emalysis  on  the  image  according  */ 

/  vv  V4s«  V«lJ.U«  VA  «a.V  oi.«3  b.W  jf  |^«3  .  '*'/ 


loopi  (maxlevel)  •( 


/i^e**4<4(4i*e4»4i**e4>*********.1'******4<»:ti*/ 

/+  generate  phi  for  haar  */ 


phi  =  phi_gen_haar(i) ; 

printf  (''\n  Level  '/.d  phi  generated. \n'',  i); 

/e****i(<*  *********  e*ik***e*eeee*ee#e*iii***e****  ****«*«/ 

/*  perform  inner  product  to  get  phi  coeficients  */ 

/ **************** **]p**********V************* *******/ 


phi_coef  inner_prod( image,  phi,  i,  filename): 

printf  ("\n  I  have  created  and  strored  the  Level  7,d",  i); 
printf ("  inner.product  coef d cients .\n") ; 

/**********************************/ 

/*  generate  V  space  projections  ♦/ 

/*♦****♦♦****♦****♦**♦***♦****♦♦**♦/ 

lastv. image  =  v_ image; 

v.image  =  v_proj ection( image ,  phi,  phi.coef,  i,  filename); 
printf  ("\n  I  have  created  ai»d  stored  the  Level  '/,d",  i) ; 
printf ("  V  projection. \n" ,  level); 

/**********************************/ 

/♦  generate  W  space  projections  ♦/ 

/*♦♦*♦♦*♦♦++*****♦♦*♦♦******♦♦**♦**/ 

if  (i  ==  1)  w.image  ~  w_project ion (image,  v.imagr,  i,  filename); 
if  (i  >  1)  w.image  =  H_projection(lastv„image,  v.image,  , 
filename); 

> 


/*  THE  END  */ 

} 


A  .3 


A.2.2  Listing  of  LOADIMAGE.C 

/+♦♦♦♦♦♦♦♦ +♦♦♦♦♦♦♦'(■  + 

/*+♦  WAVELET  AHALY2ER  LOADIHAflE  ROUTIME  *♦/ 

/♦  DATE:  10  April  91  */ 

/♦  ♦/ 

/♦  VERSION:  1.0  */ 

/•  */ 

/*  NAME:  loadimage.c  */ 

/*  ♦/ 

/♦  DESCRIPTION:  This  routin«i  loads  an  inag«  into  coi  Sixx&y  whose  nanse  is  */ 

/^^  specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a  ♦/ 

/♦  subroutine  lo;;  the  WAVELET  ANALYZER  PROGRAM.  ♦/ 

/*  •/ 

/e  FILES  READ:  One  file  specified  by  the  user.  */ 

/♦  */ 

/♦  FILES  WRITTEN:  NONE  */ 

/*  */ 

/*  HEADERS  USED:  <otdio.h>,  "macros. h",  <stdlib.h>,  "jlmacros.h"  */ 

/*  ♦/ 

/*  CALLING  PROGRAMS:  main-wave. c  e/ 

/♦  ♦/ 

/♦  PROCRAMS  CALLED:  NONE  ♦/ 

/♦  ♦/ 

/♦  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  •/ 

/*  */ 

/t  HISTORY:  Initial  Version  */ 

/<■  ♦/ 

/eeeee«eeevv*«e«eee««»*e««**e**e*ee*ee«ee«*e*«eee«e**ee*eeeeeeee*eeeeeeeeeee/ 

/eeeeeeeeeeeeeeee^'eeeeeeeeeeteeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 

/♦  DECLARATION  SECTION  •/ 

/eeeeeeee»eeeeee*eeeee>«>eee/ 

Ainclude  <stdlib.h> 

^include  <stdio.h> 

Ninclude  "macros. h" 

#include  "jsmacros.h" 

/*e**«*iti*******e*4i4c«eiii*«**/ 

/♦  FUNCTION  BODY  ♦/ 

/♦♦♦♦+♦*+♦+■>♦++♦♦♦+♦♦♦♦♦/ 

int.array  loadimage( infilename,  argc,  argv) 
char  ♦inf iloname[64] ; 

int  argc ; 
char  *argv [] ; 

{ 

/♦  initialize  variables  ♦/ 

/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

int  i,j; 

FILE  * infile; 

int  ..array  image; 

/♦  create  array  to  hold  the  incoming  image  •/ 
if (argc  -=  1){ 

printf ("\n\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>"); 
scanf  ('"/id  '/id"  ,  Aimage.ROW,  Aimage.COL); 

printfC  \n\n  Input  filename  of  image  to  be  analyzed:>") ; 

Bcanf  ("’/iS“ ,  infilename); 

> 


else  i 

sprintKinlilename,  "7.5",  argv[l]); 
sscanl (argv[2]  ,  '"/.d",  ftiaage.ROU); 
sscanl (argv[3] ,  "Xd",  ftimage.COL); 

CREATE_MATRIX_ROW( image. array,  itaage.ROW,  int) ; 

CREATE_HATRIX_COL ( image . array ,  image . ROW ,  image . COL .  int ) ; 

/*  load  image  to  be  analyzed  */ 

0PESI_F1LE  (inifile,  inlilename,  "The  wavelet  analyzer"); 
loopij ( image . ROW ,  image. COL) -f 

lscanl(inTile,"y,d",  Aimage. array [i]  Cj]  ); 

printl("\n  The  image  V.s  has  been  loaded  lor  processing,  *e\n\n\n", 
inlilename); 
return  image; 


A. 2. 3  Listing  of  PHI.GENMAAR. C 


/***  WAVELET  ABALYZER  ROUTIBE  TO  GEBERATE  TBE  PHI  FOR  BAAR  ee/ 

/eee*eee*e**eeeeee*e««e**ee*ee*e*e*eeeeeeeeeee*eeeeeeeee**e*e** •**«***«#««*•/ 

teepee* 

/»  DATE:  ii  April  9i  */ 

/*  '  */ 
A  VERSIOI:  1.0  */ 

/e  */ 

/*  BAME;  phi_gen_haar . c  */ 

/*  e/ 

/»  DESCRIPTIOB;  This  routine  generates  the  phi  lunction  lor  a  particular  */ 

/*  level  ol  resolution.  It  is  represented  as  an  array  whose  size  depends  e/ 

/*  on  the  level  requested  by  the  calling  lunction.  •/ 

/*  */ 

/*  FILES  READ:  KOBE  •/ 

/*  */ 

/*  FILES  WRITTEN;  HOKE  e/ 

/*  */ 

/*  HEADERS  USED:  <8tdio.h>,  "macros. h",  <8tdlib.h>,  "ilmacros .h"  •/ 

/*  */ 

/*  CALLING  PROGRAMS:  main-wave. c  */ 

/*  ♦/ 

/♦  PROGRAMS  CALLED:  BONE  */ 

/*  */ 

/*  AUTHOR:  Steve  Smiley  and  J .  Stewart  Laing  */ 

/♦  */ 

/*  HISTORY:  Initial  Version  ♦/ 

/♦  ♦/ 


/*»******4>e«e*«ee*ee*ee**ee*ee****ee#e ********* 
/**♦♦***♦**♦*****♦*♦♦**♦***♦+*+*♦♦♦*♦♦♦**♦♦♦+***♦**♦♦♦*♦♦♦♦**♦*♦♦*♦♦♦♦♦**♦♦♦/ 

/****♦♦♦♦*♦*******♦*♦♦♦*♦♦/ 

/♦  DECLARATIOB  SECTION  */ 

/*************************/ 

^include  <stdlib.h> 

Ainclude  <Btdio.h> 

Oinclude  "macros. h" 

#include  "jsmacros.h" 

/***♦**♦♦*♦****♦*♦♦*♦*♦♦*♦/ 

/*  FUBCTIOH  BODY  ♦/ 

/*♦♦♦♦**♦*♦♦♦**♦*♦**♦♦♦♦/ 
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lloat_^xray  phi_gen_haar(level) 
int  level; 

{ 

/jt-:ft********t*****’^******/ 

/’f‘  initialize  variables  */ 


int  i,j,  phisize; 
llcat_array  phi; 


/*  create  array  to  hold  phi  */ 


phisize  =  1; 


lor(i=0;  i  <  level;  ++i)  phisize  ♦=  2; 
phi. ROW  =  phisize; 
phi. COL  =  phisize; 

CREATE_MATRIX_FOtf (phi. array,  phi. ROW,  lloat) ; 
CREATE_MATRIX_COL(phi. array,  phi. ROW,  phi. COL.  float); 


/♦  build  phi  */ 


loopij (phi .ROW.phi.COL)  phi.array [i] [j]  =  1 .0/(float)phi8ize; 
return  phi; 


A. 24  Listing  of  INNER.PROD.C 


/*♦♦  ROUTIME  TO  PERFORM  IMIER  PRODUCT  FOR  WAVELET  AIALYZBR  *<-♦*♦/ 
/e*ee«i^e#eeeeeeee*ee4>eeee*«eee«**ee*e«ee**««*««**e****«e*««**e*ee%*eeee*eeee/ 
/««:ee*^eeeee*«eee*e*eeeee*«*«*e**«e*e««*«*e«**e«e*e*e**ee>i'*eee*eee*eeeeeeeee/ 


/• 

/• 

/* 

/* 

/* 

/• 

/* 


DATE:  11  April  91 
VERSION;  1.0 
LAPF.:  inner_prod.c 

DESCRIPTION:  This  routine  performs  the  inner  product  between  the  phi 
and  the  image  at  eoiy  valid  level  as  requested  by  the  caller. 


/'*  .It  in  intended  as  a  subroutine  lor  the  WAVELET  ANALYZER  PROGRAM- 

1^ 

FILES  RliAIi:  NONE. 


/♦ 

/* 

/* 

/»• 


1- 

/♦ 

/* 

/* 

/• 

1* 

/* 

/♦ 

/* 


CALLING  PROGRAMS:  Bain-wave.c 

FL0GS.ANS  CALLED:  NOSE 

SL>tve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

•/ 

*/ 

^  i 

*/ 

•/ 

♦/ 

•/ 


FILT’t  WRITTEN:  A  file  will  be  generated  each  time  the 
r^uv.via  id  called.  The  name  of  the  file  will  depend  on  the  input 
imago  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  *J 

*/ 

HEADERS  USED:  <stdio.h>,  "macros. h”,  <8tdlib.h>,  " jlmacros .h" . 
<8tring.h> 


*/ 
*/ 
*/ 
*/ 
»/ 
*/ 
*/ 
*/ 
•/ 
*/ 
*/ 

/^:,t‘’t‘*****’t‘********'^******t/ 
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DEOI.J  KiTIOI  SECTIOM  */ 


#include 

#4.nclude 

#includ« 

#iaclud« 

#includ« 


<stdlib.h> 
<8tdio .h> 
"macros .h" 
"jsmacros .h" 
<string.h> 


/*  FOICTIOI  BODY  •/ 


int.,array  inner _prod( image ,  phi,  level,  filename) 
ia»_array  inage ; 
lloat_array  phi; 
int  level; 

char  Yilenane[64] ; 

•C 

int  i,  j,  phisize; 

int_array  phi_coe£ ; 

FILE  eoutfile; 

chw  coe££ileC64] ; 

float  product ; 

/*ee**««e«***e«*******«««*«*«*>»e««ee«*ee**e«eeee«/ 
/*  create  a  matrix  to  hold  the  phi  coeficients  */ 
/ee«*e*ee*ee*«e*eeeeee*e«*ee***eeeeee*eeeeeeeeeee/ 


phisize  =  1; 

for(i=0:  i  <  level;  ++i)  phisize  ♦»  2; 
phl.coef.ROW  =  image. ROW/phisize; 
phi_coel.COL  =  image. COL/phisize; 

CRE4TE_l(4TRIX_R0U(phi_co«l. array,  phi.coef .ROW,  int); 
CREA'x'E_MATRIX_COL(phi_coef .array,  phi.coef . ROb ,  phi.coef .COL,  int); 
/*printf("\nphi_coef  matrix  sucesslnlly  created. \n*' ) ;•/ 

/♦  perform  inner  product  <image,  phi>  to  get  coeficients  •/ 

/«ee*«es»«*e***«e*«««*«e«««*«««e*e«e««****eeeee«eeeee*ee*ee/ 


locpij (image. ROW,  image. COL) { 

product  =  phi. array [iXphisize] [jy.phisize]  *  (float) image. array [i)  [j] ; 
phi.coef .array Ci/phisize] [j/phisize)  +=  (int)product; 


sprintf (coeff lie,  "Xs.phicoel .Xd'',  filename,  level); 

CREATE_FILE(outfile,  coeffile,  "WAVELET  AIALYZER") 

loopij(phi_coef .ROW,phi_coef .COI.) 

fprintf (outf ile,  "Xd\a",  phi.coef .array [i] [j] ) ; 

pri.ntfC'Xn  The  level  Xd  phi.coef icients  have  been  stored  in  a  file", level); 
printf("  called:  XsXn",  coeffile); 
return  phi_ccif; 


A. 2. 5  Listing  of  V.PROJECTION.C 


/«***»*«****  xi***e******e******e*e*e«e<x**e*«e«e*e«eeee**eeee*ixeee«eee^iX4e***%/ 
/*♦*  ROUTIA'i  TO  PERFORM  THE  V.PROJECTIO*  FOR  WAVELET  AMALY2ER 

/*  DATE:  15  April  91  »/ 
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/*  VERSIOI:  1.0  *! 
/*  >  */ 
/♦  MANE:  v„projection.C  •/ 
/♦  */ 
/♦  DESCRIPTIOM:  This  routine  performs  the  inner  product  between  the  phi  */ 
/e  and  phi  coeficient  of  the  image  at  any  valid  level  as  requested  by  */ 
/*  the  caller.  *! 
/*  It  is  intended  as  a  subroutine  for  the  WAVELET  ANALYZER.  PROGRAM.  */ 
/*  */ 
/*  FILES  READ:  NONE.  */ 
/e  ♦/ 
/*  FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is  */ 
/e  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  */ 
/e  mage  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  */ 
/*  */ 
/♦  HEADERS  USED:  <8tdio.h>,  "macros. h",  <8tdlib,h>,  ''jlmacros.h*',  ♦/ 
/♦  <string,h>  */ 
/*  ♦/ 
/*  CALLING  PROGRAMS:  main-wave. c  */ 
/*  */ 
/*  PROGRAMS  CALLED:  HONE  */ 
/*  */ 
/*  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  */ 
/*  ■►/ 
/*  HISTORY:  Initial  Version  +/ 


/****e*e*«*e**e****e»*e*e*/ 
/♦  DECLARATION  SECTION  */ 

/ee«e*«**ee*e»*e****e*e*ee/ 


tinclude 

S^Aclude 

tinclude 

Sinclude 

tinclude 

tinclude 


<8td].ib.h> 

<8tdio.h> 

’jpacroB.h" 

"jsmacros.h" 

<string.h> 

<Biath .  h> 


/*  FUNCTION  BODY  */ 


int_array  v_project ion (image,  phi,  phi^coef,  level,  filename) 
int_array  image,  phi_coef; 
f loat_array  phi ; 

char  filename [64] ; 

{ 

int.orray  v_image; 
int  i,  j,  phisizo; 

FILE  voutfile; 
char  vprojf ile[64] ; 

v.image.ROW  =  image. ROW; 
v_ image. COL  =  image, COL; 

CREATE_MATRIX_ROW ( v_ image . array ,  v_ image . ROW ,  int ) ; 
CREATE_MATRIX_COL(v_image. array,  v.image.RUW,  v_image.COL,  int); 

phisize  =  (int)pow(2 .0,  (double)level) ; 
printfC'The  phisize  is  y,d\n",  phisize); 
sprintlCvprojfile,  "'/.s . v_pro j ect . Xd" ,  filename,  level); 
CREATE_FJLE(outfile,  vprojf ile,  "WAVELET  ANALYZER") 

loopi j ( v_imago . ROW , v_ image . COL ) { 

v_ image. arr ay [ i] Cj]  =  (int) ((phi. array [iXphisize] [jXphisize])* 
((float)phi_coef .array [i/phisize] Cj/phisize] )) ; 
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lprint*(ontfile,"’/,d\n",  v_image. array [i] [j]) ; 


> 

/t^<^^Ht^t*t*<***<**  f*  i:**4>vt**********<^**t****************/ 

/*  write  the  v  prt^ection  array  out  to  a  file  ♦/ 


printfC'Vn  The  level  %d  V  projections  have  been  stored  in  a  file" , level) ; 
printf("  called:  %8\n",  i-projfile); 
return  v_ image; 

> 


A.S.6  Listing  of  W^PROJECTION.C 


/***  BOUTHE  TO  PERFORK  THE  H_PROJECTIOI  FOR  WAVELET  ASALYZER  ♦♦♦**/ 
/«*ee**ee4teee*e«ee4>eeeee*<eee«*e*ee**«****w*e«**«ee*«***ee*eee*e«**ee«e«eeeee/ 
/ee*eeeeeee****e*e*e«e*eeeee*ee«eee*ee^eeeeeeeeeeeeeeeeee*eeeee«e«’»eeeeeeeee/ 


/• 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/♦ 

/* 

/• 

/* 

/* 

/♦ 

/♦ 

/* 

/* 

/* 

/* 

/♦ 

/♦ 

/* 

/* 

/* 

/+ 

/♦ 

/* 


DATE:  IS  April  91 
VERSION:  1.0 
lAKE:  H_projection.c 

DESCRIPTION:  This  routine  calculates  the  W  space  projections  Ly 
performing  a  point  for  point  subtraction  with  the  two  adjacent. 

V  £*^2.cs  liozis  .  Xt  s 

WAVELET  ANALYZER  PROGRAM. 


FILES  READ:  NONE. 


•/ 

•/ 

*/ 

*/ 

*/ 

♦/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is 
routine  is  called.  The  name  of  the  file  Bill  depend  on  the  input 
image  filenamei  the  type  of  wavelet  used,  and  the  level  of  resolution.  */ 

*f 

HEADERS  USED;  <8tdio,h>,  "macros. h",  <stdlib.h>,  " jlmacros ,h" , 
<string,h> 


CALLING  PROGRAMS :  main-wave . c 
PROGRAMS  CALLED;  RONE 

AUTHOR;  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version 


*/ 

*/ 

*/ 

*/ 

*1 

*/ 

*/ 

*/ 

*/ 

*/ 


/****«*«**4.e**4i«4ie***«i*^*ii<*4.************e****e**6e****«e«*>»e+*«4<**4<eee*«**.**/ 
/  m**>t****^^*****^^*^^*%***'**>■*  / 

/*  DECLARATION  SECTION  ♦/ 


finclude 

^include 

^include 

finclude 

Ainclude 

tinclude 


<stdlib.h> 
<Btdio.h> 
"macros .h" 
"jsmacros.h" 
<8tring.h> 
<math . h> 


/♦  FUNCTION  BODY  •/ 

int^array  B_projection(Iastv_iiine^ge,  v_image,  level,  filename) 
int_array  lastv_ image,  v^image; 


int 

ctar 


level; 

liletiane[64]  ; 


int.axray  H_image; 
iat  i,  j,  phisize; 

FILE  *outlile; 

char  wpro j  file [64] ; 

w_image.ROy  =  v_imago.ROU; 
w_image.COL  =  v_imago . COL; 

CREATE_MATRI X_ROW ( image . array ,  w_ image . ROW ,  int ) ; 

CREATE_MATRIX_COL(h_ image. array ,  u_image.ROU.  a^image.COL,  int); 
sprintf (wprojfile,  "7,8 . «i_project .Xd" (  filename,  level); 

CREATE_FILE(outfile,  wprojfile,  "WAVELET  AHALY2ER") 

Ic  opi j (w.image . ROW , w_ image . COL) { 

w_image.arr4^y[i] [j]  =  lastv_inage . array [i] [j]  -  v^inage.array [i] [j]  ; 

/*  s_image.array[i] [j]  +=  265; 

w_iaage,array[i] [j]  /=  2;*/ 

/*  write  the  w  projection  array  out  to  a  file  */ 

f pr intf  ( outf  il  e ,  "*/,d\n'‘ ,  w_image .  array  [i]  C j  3 ) ; 

printf("\n  The  level  Xd  W  projections  have  been  stored  in  a  file" .level) ; 
printfi"  called:  Xs\n",  srprojfile); 
return  w.image ; 

> 

A. 2. 7  Listing  of  JSMACROS.H  (See  Appendix  F.l) 

A. 2. 8  Listing  of  MACROS. H  (See  Appendix  F.l) 

A. 2. 9  Listing  of  STEWMATH.H  (Sec  Appendix  F.l) 

A. 2. 10  Listing  of  MAKEFILE 

#  Hedcefile  routine  for  the  WAVE  program  by  Laing  and  Smiley. 

OBJS  =  main-wave. o  loadimage.o  phi_gen_haar . o  inner_prod.o  \ 

^-projection.©  w_projection.o 

wave:  $(OBJS) 

Cecho  "linking  ..." 
cc  $(OBJS)  -o  wave  -Im 

main-wave . o :  main-wave . c 
cc  -c  main-wave. c 

loadimage.o:  loadimage.c 
cc  -c  loadimage.c 

phi„gen_haar . o :  phi_gen_haar . c 
cc  -c  phi_gen_haar . c 

inner_prod . o :  inner_prod . c 
cc  -c  inner _prod.c 

v_projection.o:  v_projection.c 
cc  -c  V-projection , c 

w_projection.o:  w_projection. c 
cc  -c  w_projection . c 
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Appendix  B.  Multiresolution  Analysis  Using  Filters 


B.l  2D  Si/stem  Description 

The  following  is  a  list  of  functions  which  comprise  the  wavc2  program. 


1.  main_wav8.c  -  The  main  driver  program  for  wave. 

2.  loadiraage.c  -  A  routine  to  load  the  input  image  from  an  ascii  data  file. 

3.  decompose. c  -  A  routine  that  controls  the  decomposition. 

4.  reconstruct  .c  -  A  routine  that  controls  the  reconstruction. 

5.  filters .  c  -  A  routine  that  provides  the  coefficient  values  of  the  h{n)  and  g{n)  response 
functions. 

6.  convolve. c  -  A  routine  that  controls  the  convolutions  for  decomposition. 

7.  reconvolve. c  -  A  routine  that  controls  the  convolutions  for  reconstruction. 

8.  spconvlv .  c  -  A  routine  that  performs  the  spatial  convolutions. 

9.  makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 


- - -  _ r..i 
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environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F'.2  for  listing). 


11.  stewmath.h  -  An  include  file  containing  some  math  routines  specific  to  our  program. 
It  must  be  present  in  the  directory  where  complilation  takes  plac  -  (See  Appendix  F.2 
for  listing). 


12.  nrutil.c  -  Source  code  that  contains  utility  macros  for  dynamic  memory  allocation 


(See  Appendix  F.2  for  listing). 
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Typing  “make”  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  file  called  wave2  Xhat  may  be 
executed  by  typing  “waveS”  at  the  command  piompt. 


The  intended  input  to  the  program  is  a  2D  image  in  raw  ascii  format  in  which  each 
sample  of  the  image  is  stored  in  a  file,  one  number  per  line.  For  example,  an  image  that  is 
512x512  samples  will  consist  of  262,144  lines  each  with  one  decimal  integer  number  repre¬ 
senting  the  grey  scale  value  of  that  sample.  The  grey  scale  values  range  from  0  to  255.  The 
output  of  the  program  are  ascii  files  representing  the  scale  and  detail  wavelet  coefficients  in 
floating  point  format.  For  an  in  depth  explanation  of  the  these  coefficients  and  the  algo¬ 
rithm,  see  the  author’s  theses.  The  algorithm  implemented  in  this  program  is  taken  from  a 
paper  by  Stephan  Mallat.  The  paper  is  referenced  in  the  authors  theses.  Be  aware  that  we 
found  some  printing  mistakes  in  the  paper  which  are  addressed  in  our  theses.  The  program 
was  developed  on  Sun  sparcstation  2’s.  But,  it  should  compile  on  any  system  with  an  ansi 
standard  C  compiler.  To  compile  the  program,  type  make  at  the  command  prompt  with  the 
default  directory  set  to  the  current  directory.  Object  files  will  then  be  created  and  linked 
into  an  executable  file  called  wave2.  Then  to  run  the  program,  type  wa.ve2  at  the  command 
prompt.  A  menu  should  appear  first  with  four  choices.  If  not  done  at  the  command  line 
entry  into  the  program,  a  file  must  be  loaded  from  the  current  directory  before  either  de¬ 
composition  or  reconstruction  can  be  executed.  Once  a  file  is  loaded  the  Decomposition  can 
be  selected.  Then  the  Reconstruction  can  be  selected.  The  Reconstruction  portion  depends 
on  files  generate*!  by  the  Decomposition  portion.  But,  it  is  not  necessary  to  run  the  Decom¬ 
position  during  the  same  session  as  the  Reconstruction  as  long  as  the  Decompostion  was  run 
in  a  prior  session  and  the  files  still  reside  in  the  current  directory.  An  alternate  way  to  start 
the  program  is  to  type  wave2  followed  by  the  name  of  the  input  file  and  its  size.  The  size  of 
the  input  file  must  be  a  power  of  two  and  is  defined  to  be  the  length  along  one  dimension  of 
the  sampled  image.  At  this  time  the  largest  file  used  is  a  512  by  512  sampled  image.  It  is 
possible  to  specify  the  path  to  an  input  file  that  is  not  in  the  current  directory  iether  relative 
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to  the  current  directory  or  absolutely  from  the  root.  However,  if  this  is  done,  the  output 
files  will  be  sent  to  that  same  directory.  To  review  the  usage  of  wave2  is 

command  prompt ;  wave2  [infilename]  [size] 

The  infilename  and  size  are  optional  but  if  the  infilename  is  given  its  size  along  one 
dimension  of  the  square  power  of  two  sampled  image  must  be  given  as  well. 

Also,  only  one  file  may  be  input  in  any  one  session.  This  fact  is  not  obvious  from  the 
program  menu,  so  be  aware.  If  you  try  to  select  the  Load  image  option  from  the  main  menu 
after  you  have  already  loaded  a  file,  the  result  has  not  been  fully  characterized.  In  other 
words,  we  haven't  tried  to  figure  out  what  would  happen.  This  menu  option  is  provided  as 
an  alternative  to  specifying  the  file  on  the  command  line. 

The  filters  available  are  presently  limited  to  the  some  of  the  Daubechies  wavelets  and 
the  Cubic  Spline  wavelet.  But  it  is  a  simple  process  to  add  new  filters  to  the  filters  c  program 
in  the  same  fasion  as  those  already  included.  To  generate  the  H  and  G  filters,  see  our  theses 
for  references. 


B.2  2D  Multiresolution  Wavelet  Analysis  Software 
B.  2. 1  Listing  of  MA  IN-  WA  VE.  C 


/***  WAVELET  ASALYZER  iiAIS  PROGRAn  DRIVER  **/ 

/*♦•**♦*****•*  »  +  +  ♦*♦+♦* »***♦;!.****♦*♦♦♦  **:*.**,^  +  ^/ 

/*  DATE:  09  April  91,  18  June  91 
VERSIOH:  2.0 
NAME;  main-Have. c 

DESCRIPTION;  This  program  perlorms  a  muitirepolutrU'n  wavtlei  euialysis 
ol  an  input  image  with  a  wavelet  Iron  its  internal  library  chosen 
interactively  by  the  user.  It  handles  the  menu  interface  with  the 
user  and  drives  the  subroutines  that  take  input,  analyze,  and  produce 
output.  The  the  wavelet  decomposition  algorithm  is  a  pyramid  algorithm 
proposed  by  Stephan  Hallat  in  A  Theory  for  Multiresolution  Signal 
Decomposition:  The  Wavelet  Representation  published  in  IEEE  Trams, 
on  Pattern  Anal,  and  Machine  Intel.  July  89.  The  algorithm  uses  a  pair 
of  mirror  filters  derived  from  the  scaling  function,  phi(x).  The  user 
may  enter  the  intended  input  image  file  from  the  command  line  following 
the  calling  command  'wave'  or  the  user  may  wait  to  be  prompted  for 
the  input  file  name  and  size  after  starting  the  program  with  the  seune 
command.  In  any  case,  additional  images  may  be  entered  for  processing 
by  selecting  the  appropriate  option  from  the  program's  main  menu. 

FILES  READ:  NONE  (A  subroutine  reads  the  input  files.) 


FILES  WRITTEII:  KONE  (Subroutines  urita  out  the  saved  data  in  files.) 
HEADERS  USED:  <stdio.h>,  "jsmacros.h*',  "stewmath.h" 

CALLING  PROGRAMS :  NONE 

PROGRAMS  CALLED:  imageload. c.  reconstruct. c,  decompose,  r. 

AUTHOR;  Steve  Smiley  euid  J.  Stewart  Laing 

HISTORY:  Initial  Version;  adapted  from  phivl.c  and  ha2Lrvl.c 

Version  2.0  was  a  rewrite  to  change  the  basic  algorithm  from  the  using 

inner  products  to  using  the  Hallat  algorithm  referenced  above. 


/*  DECLARATIOI  SECTION  */ 

#include  <stdio.h> 

#include  "jsmacros.h" 
#include  "stewmath.h" 


int_array  loadimage ( ) ; 

void  reconstructO ; 

void  decomposeO; 

/*4t4:**«ie*********i^«*4>«t*/ 

/*  MAIN  PROGRAM  BODY  */ 


void  main(argc,  argv) 
int  argc ; 

Char  ♦argv [] ; 

{ 


/♦  initialize  variables  ♦/ 


int  selection; 

int_array  image,  *ijnagepc inter  =  ftimage; 
char  filename [64] ; 


/♦  load  image  to  be  analyzed  ♦/ 

ifCargc  !=  3  AA  argc  !=  1){ 

printl("Usage:  wave  <lilen2une>  <#  of  Rows>  <#  of  Cols>\n"); 
exit(O) ; 

> 

if (argc  ==  3){ 

image  =  loadimage(filename,  argc,  argv); 

/♦printf ("returned  from  loadimage");  lflush(£itdout) ;♦/ 

> 

do  { 

/♦  display  menu  ♦/ 


printf("\n\n  MAIN  MENU\n\n"); 

prir.tfC  1  =  Load  a  new  image  from  disk.\n"}; 

printfC  2  =  Perform  Wavelet  Decomposition. \n") ; 

printfC  3  ^  Perform  Wavelet  Reconstruction. \n") ; 

printfC*  4  =  Exit  Program. \n\n"); 

printfC*  Enter  an  integer  (1-4):"); 

scanf("'/.d",  ftselection); 


if  (selection  ==  4)  break;  /♦  Quit  program  */ 

argc  =1; 

if  (selection  ==  1)  image  =  loadiiQago(f ilename,  axgc,  argv) ; 
else  if  (selection  =-  2)  decomposedmagepointer ,  filename); 

else  if  (selection  ==  3)  reconstruct (imagepo inter, 
filename) ; 

else  { 

printfC  \n\n  Just  enter  an  integer  from  1  to  4  and"): 
printf ("press  return.  \n"); 

> 

}  Hhile  (selection  !=  4); 

/♦  THE  END  +/ 

} 

B.2.2  Listing  of  LOADIMAGE.C 

/  ♦♦♦♦♦♦*<‘**%+**'»t**  *♦*!♦♦♦*♦♦/ 

/♦•*  WAVELET  ANALYZER  LOADIMAGE  RnUTINS  **/ 

/*  DATE:  10  April  91 
VERSION:  1.1 
NAME:  loadimage.c 

DESCRIPTION:  This  routine  loads  an  image  into  an  array  whose  n2une  is 
specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a 
subroutine  for  the  Have2  program. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN;  NONE 

HEADERS  USED:  <stdio.h>.  "jsmacros.h" 

CALLING  PROGRAMS :  main-wave , c 

PROGR.AHS  CALLED:  NONE 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Version  1.1  was  changed  to  accept  square  matrices 
only , 

*/ 

/**♦**♦»♦*♦♦*♦♦+♦*+*+♦*♦+♦/ 

/*  DF.CLARATION  SECTION  */ 

#include  <stdio.h> 

Ninclude  "jsmacros.h" 
int  ♦♦imatrixO ; 

void  free_imatrix() ; 

/♦  FUNCTION  BODY  ♦/ 

/  Hi  %  Di  *  It<  m  4citiiti  41  *  *  ^  ^  ^  4.  *  1^  1).  <:  / 

int_array  loadimage( inf ilename,  argc,  argv) 
char  ♦inf ilename [64j ; 
int  argc ; 
char  ♦argv  □  ; 

{ 

/*  initialize  variables  */ 


int  i , j ; 

FILE  *infile; 

iiit_array  image  ; 

/+  create  array  to  hold  the  incoming  image  •/ 
ifCargc  ==  1){ 

printi("\n\n  Input  filename  of  image  to  be  analyzed:"); 
scanf  ("’/.s",  inlilename); 

printf("\n\n  Input  the  number  of  Rous  in  the  square  matrix"); 
printf("\n  data  file.  (The  number  riust  a  power  of  2):"); 
scanf  ("*/,d'',  timage.ROW) ; 
image.  CDL  =  image.  B'JW; 

> 

else  i 

sprintf (inf ilenamo ,  argv[l]); 

ssccinf  (argv[2]  ,  "Xd",  timage.ROW); 
image . COL  =  image . ROW ; 

y 

image. array  =  iraatrix(l,  imaga.ROW,  1,  image. COL); 

/♦  load  image  to  be  analyzf-d  */ 

OPEN_FJLE  (infile,  infllename,  *’The  wavelet  analyzer"); 
loopij( imago. ROW,  image. COL) 

fscanf  (infile, "y,d",  Itimage. array Ci+l]  [j+1])  ; 

CLOSE.FILE  (i,  infilaname,  "The  Wavelet  analyzer",  i.nfile) 
printf("\n  *♦  The  image  y,s  has  been  loaded  for  processing,  ’'■■''\n\n\n", 
infilename) ; 
return  image; 


B.  S.  3  Listing  of  DECOMPOSE.  C 


/i^.^^^^^inL^tm.^:i^t’if*****^****>m^*nF*****^‘*****t**********'>‘****  *********************/ 
/^^*^l**^tl**^^**<^^^*’^*^t¥**^‘-**^***4*************1‘**********■*‘*********’¥’^***’^****  *’>>**/ 

WAVELET  DECOKFOSITIGS  SUBROuTieE  e*/ 

+»♦***»*»*********  **♦*+*/ 

/i-  DATE:  19  June  91 
VERSION:  1.0 


NAME:  decompose. c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wave".  The  algorithm  used  is  discussed  iii 
the  description  of  the  main  driver  nodule  called  "main-wave . c . 

Data  is  passed  by  reference  from  the  main  driver  module.  The  data  is 
in  ascii  format  arranged  in  a  square  matrix  whose  dimensions  are  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ.  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN;  Four  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  with  the  input  image  filename 
and  end  with  an  extension  of  the  form  ".nXm"  where 
r.  is  an  integer  that  represents  the  level,  X  is  one 
of  the  letters  'c'  or  'd'  to  represent  phi 
or  psi  coefficients  respectively,  euid  m  is 


2ui  integer  1,  2,  or  3  that  represents  the 
orientation  vertido,  horizontal,  or  angular 
repsectively . 

HEADERS  USED;  <stdio,h>,  "jsmacros .h" 

CALLIHG  PROGRAMS:  main-wave. c 

PROGRAMS  CALLED;  convolve. c,  f liters. c,  nrutil.c 
AUTHOR;  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

*/ 

/tf:*‘****m*f******************’********t*^m*'¥*************t************<iF********/ 

/♦♦♦♦♦♦♦♦♦•♦*♦♦♦♦**♦♦♦*+*♦/ 

/*  DECLARATION  SECTION  ♦/ 

/^,^i^;lLlfltHl************:******/ 

#include  <6tdio.h> 

#include  "jsmacros.h" 

void  convolveO: 

void  liltersC); 

float  •vectorO; 

float  **matrix(): 

void  f ree„vector 0 ; 

voiu  frae_matrix() ; 

int  ♦’t'imatrixO; 

/♦#♦♦♦*♦♦♦♦♦♦♦♦*♦♦♦*♦♦*♦/ 

/•  MAIN  PROGRAM  BODY  ♦/ 

/  Ik  4<  %>•<  4<  >»  ■!<<!«%«<)<  it<  *  **>f4<*  / 

void  decompose (imagepolnter,  infilename) 
int_array  ♦ imagepo int  er ; 
char  infilenamen; 

{ 


/*  declare  variables  ♦/ 

/  «  #  4  Ik  Ik  «  4<  *  t  Ik  *  *  *  *  4>  4>  4<  Ik  4>  «  4' / 


int 

f loat_vector 
f loat_vector 
f loat_vector 
f loat_vector 
f loat_vector 
f loat_array 
f loat_array 
f loat_array 
f loat_array 
FILE 
char 

int_2Lrray 


i,  j,  R ,  maxlevel,  wavelet_type; 

h_of_u,  h_of_nllipo,  g_of_n,  g_of_nflipo,  phi,  phiflipo; 
phiflipc,  ifphiflipcpointer  =  Itphiflipc; 

♦h_of _ripointer  =  &h_ol_n,  ♦h  of_nf lipopointer  =  th_of _nflipo; 
*g  _of_npointer  =  tg_of_n,  ♦g.of „nf lipopointer  =  ftg_ot_nflipo; 
♦phipointer  =  ftphi,  ♦phif lipopointer  =  tphiflipo; 
c_coef,  dl_coei,  d2_coef,  d3_coef; 

*c_coefpointer=:  &c_coel,*dl_coefpointer=  ftdl.coef; 

♦d2_coef  pointer=  ftd2_coef  ,’tid3_coefpointer=  ftd3_coef; 
temp,  *tenippointer  =  fttemp; 

♦outf ile; 

filename [64] ,  Bave_code[64] ; 
newimage,  ♦newimagepointer  =  Anowimage; 


/^^k^ik^ikkukikkukk^kkk^.kikiktkk/ 

/*  allocate  memory  */ 


temp. ROW  =  imagepointer->ROW; 

temp. COL  =  imagepo.’.ntar->COL; 

temp. array  -  matrixCl,  temp. ROW,  1,  temp.COI); 

loopii(temp. ROW, temp. COL)  tcmp.array [i+1] [j+l]  =  0.0; 

c_coef.R0W  =  imagepo inter->R0W; 

c_coef.C0L  =  imagepoirter->COL; 

c_c.oef  .array  =  Eiatrix(1,  c_coef.R0W,  1,  c_coef.C0L); 
loopij (c_coef . R0W,c_coef . COL)  c_coef .array [i+l] [j+1]  =  0.0; 
dl_coef,R0W  =  imagepointor->ROW; 
dl_coef.C0L  =  imagepointer->COL; 


dl_coef  .array  =  matrixd,  dl_coef  .ROW.  1,  dl_coef  .COL)  ; 
loopij(dl_coef .R0W,dl_coef .COL)  dl_coof .ar.ray[i+l]  [j  +  1]  =  0.0 
d2_coef.R0W  =  imagcpointer->ROW; 
d2_cocf.C0L  =  iiaagepointer->COL; 

d2_coel .  array  =  matrixd,  d2_coef.R0W,  1,  d2_coef  .COL)  ; 
loop;. j(d2_coef. ROW, d2„coei. COL)  d2_coef . array [i+1]  [j+1]  =  0.0 
d3_.coef.R0W  =  imagepoint€r->ROW; 
d3_coef.C0L  =  imagepointer->COL; 

d3_coef . array  =  matrixd,  d3_coef.R0W,  1,  d3_coef .COL) ; 
loopij(d3_coef .R0W,d3_coef .COL)  d3_coef. array [i+1]  [j+1]  =  0.0 
newimaga-ROW  =  imagepointer->ROW; 
newimage.COL  =  imagapointer->COL; 

newimage. array  =  imatrixd,  newimage.ROW,  1,  newimage.COL); 
loopijCnewimage. ROW, newimage.COL)  nawimage. array [i+l] [j+1]  = 

h_of_n. vector  =  vector ( 1, imagepointer->RQW+2) ; 
loopi(iinagepointer->R0W*2)  h_of_n. vector  [i+l]  =  0.0; 
g_of„n. vector  =  vector (1 , iinagepointer->R0W+2) ; 
loopi(imagepointer->R0W*2)  g_ol_n. vector [i+1]  =  0.0; 
h_of_nflipo. vector  =  vector (1 , imagepointer->R0W*2) ; 
loopi(imagepointer->RQW*2)  h_of_nflipo. vector  [i+1]  =  0.0; 
g_of_nflipo. vector  =  vector (1 , imagepointer->R0W»2) ; 
loopi(imagepointer->R0W*2)  g_of_nllipo. vector  [i+1]  =  0.0; 
phi. vector  =  vector(l ,2*iinagepointer->R0W) ; 
loopidmagepointer->RQW*2)  phi. vector [i+l]  =  0.0; 
phiflipo .vector  =  vector(l ,2*iniagepointer->R0W) ; 
loopi(imagepointer->ROW*2)  phiflipo. vector  [i+l]  =  0.0; 
phiflipo .vector  =  vectorCl ,2*imagepointer->R0W) : 
loopi(imagepointer->R0W*2)  phiflipc. vector  [i+1]  =  0.0; 

/*  display  menu  ♦/ 


printf ("\n\n 

DECOMPOSITION  MEKU\n\n") ; 

printfi" 

1 

S 

Piece-wise  Constant .  (}i/ii)\n") 

printf (" 

2 

Piece-wise  Linear . (N/A)\n") ; 

print! (" 

3 

= 

Daubechies  H=2.\n"): 

printf (‘ 

4 

= 

Daubechies  N=3.\n"); 

printf (" 

6 

Daubechies  N=4.\n"); 

printf (" 

6 

= 

Daubechies  N=6 ,  \ii")  ; 

printf (" 

7 

= 

Daubechies  K=6.\n"); 

printf {" 

8 

= 

Daubechies  H=7.\n"); 

print! {" 

9 

= 

Daubechies  N=8.\n"); 

printf (" 

10 

= 

Daubechies  N=9.\n''); 

printf (" 

11 

= 

Daubechies  N=10.\n"); 

printf (" 

12 

= 

Splines. \n") ; 

printf (" 

13 

Horlet .  (N/A)\n'’) ; 

printf ("\n  Enter  an  integer  1-13:  ") ; 

scanf("%d",  hwavelet_type) ; 


/*  error  handling  for  invalid  input  +■/ 


if  {wavelet_type  <311  Havelet_type  >  13)  { 

printl("\nYou  have  chosen  an  Invalid  Wavelet  type  or"); 

?rintf("\ntbis  type  is  not  currently  available."); 

/*  end  if  */ 
else  { 


/♦  Set  wave_code  for  use  in  output  fij.enaines.  ♦/ 

/  4<  +  4^  If  4.  iti  4. «  4. 4. 4 4' 4 I- 4  ■h  1 4  >•' I' / 

if  (wavelet_type  ==  3)  sprintf (wavo_code ,  "db2"); 
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if  (wavelet _type  ==  4)  sprintf (wave_code,  "dbS"); 
if  (wavelet_type  ==  6)  sprintf  (wave_code,  '•db4’’): 
if  (wavalet_type  ==  6)  sprintf (Have_code,  ''dbB"): 
if  (wavelet _type  ==  7)  sprintf (wave.code,  ”db6"); 
if  (wavelet_type  ==  8)  sprintf (Have_code,  "dbT"); 
if  (wavelet_type  ==  9)  sprintf (wave_code,  "db8"); 
if  (wavelet_type  ==  10)  sprintf («ave_code,  *'db9"); 
if  (wavelet_type  -=  11)  sprintf (wave.code.  "dbO"); 
if  (wavelet.type  ==  12)  sprintf (wave^code,  "spl"); 

/+  Generate  Phi  and  Filters  */ 

filters  (wavolet_type,h_of_upointer,g_of_npointer,phipointer) ; 
f lipo(phipointer ,  phif lipcpointer) ; 

h_of_nflipopo inter  =  h_of_npointer ; 
g_of_nflipopointer  =  g_ol_npointer ; 

loopi j (ioagepointer->ROW , iBagopointer->COL) 

teinppointer->arrayCi+l]  [j+1]  =  (float)imagepointer->array  [i+l]  [j  +  D  ; 

/•  Call  convolution  rontine  and  save  the  coefficient  arrays  for  */ 

/*>  each  level  of  analysis.  ♦/ 

maxlevel  =  LQG2(imagepointer->RCW) ;  /♦  Calculate  the  highest  level  */ 
k=l; 

loopk(niaxlevel)-( 

if  (temp. ROW  >-  h_of_n. length) {  /♦  image  has  to  be  bigger  than  filter  */ 
printf ("\nPerforming  convolution  with  filters,  level"); 
printfC7,d.  k+1); 

convolve (temppointer,  h_of_nf lipopointer ,  g_of_nflipopointer, 
c_coefpo inter,  dl_coefpointer ,d2_coolpointer,d3_coefpointer); 

sprint! (filename,  "*/.s.’/,d.c.'/,s",  infilename,  k+1,  wave_code) ; 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi j ( c_coef . ROW , c.coef . COL) 

fprintf  (outf ile,  ‘"/,f\n",  c_>,rof  .array [i+1]  [j+l] ) ; 

CL0SE_FILE(i ,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf  (filename ,  "7,s.y,d,dl./(6",  infilename,  k+1  ,wavo_code)  ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (di_coei . R0W,di_coef . CuL) 

fprintf  (outf  ile,  "‘/.fXn",  dl_coef  .array  [i+l3  [j+1]  )  ; 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf  (filename,  "%s.y,d,d2.*/,8",  infilename,  k+1  ,wave_c.ode)  ; 
CREATE_FILE(QUtf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (d2_coef . R0W,d2_coef .COL) 

fprintf  (outfile,  '"/.fNn”,  d2_coef  .array  [i+l]  [j+1]  ) ; 

CL0SE..FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf  (filename,  "y,8.7,d.d3.y,8",  infilename,  k+1  ,wave_code) ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (d3_coof . ROH,d3_coof .COL) 

fprintf  (outf  ile,  "’/.fXn",  d3_coef  .array  [i+1]  [j  +  1]  ) ; 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

temp. ROW  =  c.coef.ROW; 
temp. COL  =  c_coef.C0L; 

loopij (temp. ROW, temp. COL)  temp. array [i+1] [j  +  l3=c..cocf .array [i+l]  [j  +  1] ; 
}  /*  end  if  */ 

)■  /♦  end  loop  ♦/ 

]  /+  end  else  ♦/ 
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/*  free  memory  ♦/ 

free. matrix (temp. array ,  1,  temp. ROW,  1,  temp. COL); 

^  free_matrix(c_coef .array ,  1,  c_coef.RQU,  1,  temp. COL); 

lree,.matrix(dl_coef .array ,  1,  dl_coef.ROW,  1,  dl_coef . COL) ; 
lree_matrix(d2_coef .array,  1,  d2_coel.R0W,  1,  d2_coef . COL) ; 
free_matrix(d3_coef .array ,  1,  d3_coef.R0W.  1,  d3_coef . COL) ; 
lree_vector(h_of_n. vector, l,imagepointer->R0W*2) ; 

1 ree_vector (g_ol_n . vector , 1 , imagepointer->R0W*2) ; 
free_vector(phi .vector , 1 , imagepointer->R0W*2) ; 

:'ree_voctor(phillipo. vector, 1 , imagepointer->B0W*2) ; 
free..vector(phillipc.  vector,  1 , iiiiagepointer->R0W*2)  ; 

/♦  TBE  biHD  »/ 

} 

B.2.4  Listing  of  RECONSTRUCT. C 

/♦♦♦  WAVELET  RECOISTROCTIOB  SUBROUTIKE  **/ 

/♦  DATE;  2  July  91 

VERSIOS;  2.0  (usee  epconvlv) 

SAME  •.  reconetruct .  c 

DESCRIRTIUI :  This  subroutine  is  intended  to  be  part  of  a  Wavelet 

a n a  1  tr*y  T  TiAF  S.l'^CiTi'ths  llSfid  iS  disCIlSSfid  iH 

the  description  of  the  main  driver  module  called  ‘'main-save . c . 

It  controls  the  portion  of  the  program  that  reconstructs  a  previously 
decomposed  image  using  Nallat's  multiresolution  algorithm  referenced 
in  the  description  of  the  calling  program,  "main-uave . c" . 

FILES  READ;  Four  coefficient  files  at  each  level  of  2Uialy8i8. 

The  file  names  begin  with  the  input  image  filename 
an(i  end  with  an  extension  of  the  form  ".nXm"  where 
n  IS  an  integer  that  represents  the  level,  X  is  one  of 
the  letters  'c'  or  'd'  to  represent  phi  or  psi  coef¬ 
ficients  respectively,  and  m  is  an  integer  1,  2,  or  3 
that  represents  the  orientation  verticle,  horizontal, 
or  angular  repsectively . 

FILES  WRITTEB:  One  file  with  the  extension  ”.roc". 
headers  USED;  <Btdio.h>,  "jsmacros .h" 

CALLIHG  PROGIAHS:  main-wave. c 

PROGRAMS  CALLED;  f liters. c,  rtconvolve.c,  nrutil.c 
AUTHOR:  Sttve  Smiley  and  j.  Stevart  Laing 
HISTORK:  Initial  Version. 

•/ 

J^^,^,i^t^1H^^^^^l^^^i^^^i^i^it^’^*^»‘*******^f***<f*^^***•*******•^*****^^*^*^***^^***********^^**/ 

«■»*»*«<*/ 

/*  DECLAR/.TIOH  SECTIOF  f/ 

^include  <ttdio.h> 

#include  '  jsmacroB  .li" 

void  filtorsO; 
void  reconvolveO ; 
float  *vector(); 
float  **matrix(); 
void  froc_vector() ; 
void  lree„matrix() ; 
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int  ♦♦imatrixO ; 

void  iree_imatrix{) ; 

/*  NAIM  PROGRAM  BODY  */ 
/♦♦♦♦♦♦♦♦♦»♦♦♦♦♦•♦♦••♦*♦/ 

void  leconstruct ( imagepointor , inf ilenama) 
int_array  vimagepo intar; 
char  inlilenaine[] ; 


/»  declara  variables  */ 

/444**4444444*«*444444444>/ 


int  i,  j,  k,  1,  maxlevel,  vavelet.type; 

lloat_vector  h_cf_n,  h_ol_nilipo,  h_of_nflipc,  g_ol_n; 

float _vector  g_of_nllipo.  g_of_nflipc,  phi.  phiflipc; 

float_vector  *h_of ^npointer  =  *h_of_n,  •g_of_npo inter  =  Ag_of_n; 

float_vector  *h_of _nllipopointer  =  Ah_ol_nflipo; 

lloat_vector  *g_ol_nflipopo inter  =  Ag_ol_nflipo; 

lloat_vector  vh_of_nflipcpointer  =  Ah_of_nflipc; 

float_vector  *g_ of  ..nflipcpo inter  =  Ag_of_nllipc; 

lloat_vector  •phipcinter  =  Aphi,  ephif lipcpointer  =  tphiflipc; 

float_array  c.coaf,  dl_coef,  d2_coef,  d3_coef; 

flont_array  ec..coefpointer=  Ac_coel,*dl_coelpoiiiter=  *dl_coef: 

float_array  *d2_cocf pointers  Ad2_coef ,*d3_coefpointer=  Ad3_coef 

lloat_array  tetsp.  ^teappointer  =  Ateap; 

int.array  newiaage,  ^neviaagepointer  =  Anevinage; 

FILE  *outlil«,  ♦infile; 

char  f  ilenaii«[64j ,  «ave_code[64]  : 

float  holder [64] ; 

/•44*4***44*e*4*44*4e4«44/ 

/•  allocate  memory  ♦/ 


temp. ROW  =  imagepointer->ROW; 

temp. COL  =  iwagepointer->COL; 

temp. array  •  matrixd,  temp  ROW.  1.  temp. COL); 

loopij  (temp. i.^W, temp. COI '■  cemp.array[i+l]  [j+lj  =  0.0; 

newimage.ROW  =  imagepoii4-er->R0W; 

new imago. COL  =  imagepointer->COL; 

new image. array  ^  imatrixCl,  newimage.ROW.  1.  nevimage.COL) ; 
loopij (newimage.ROW, newimage. COL)  newimage.arrayCi+l]  [j+l]  =■  0.0; 
c,.coef.R0W  =  ],magepointer->ROW; 

c_coef. array  s  matrixd,  c_coef.R0W,  1,  c_coef.C0L); 
loopij (c_coef .R0W,c_coef .COL)  c_coeX .array [i+1] [j+lj  =  0.0; 
dl.coef.ROW  =  imagepointer-;^R0W; 
dl.coef  .COL  =  imagepointer-'>COL; 

dl_coef .array  s  matrixd,  dl.coef.ROW,  1,  dl_coef .COL) ; 
loopij(dl.,coef .ROW,dl_coef.C0L)  dl.coef .array [i+1] [j+lj  =  0.0; 
d2_coef.R0W  =  imagepointer->R0W; 
d2_coef.C0L  =  imagepointer->COL; 

d2_coef  .array  =  matrixd,  d2_coef.R0W,  1,  d2_coef  .COL) ; 
loopij(d2_coef .R0W,d2_coef .COL)  d2_coel .array [i+l] [j+lj  =  0.0; 
d3_coef  ROW  =  iroagepointer->ROW; 
d3.,coef.C0L  =  iniagepointer->COL; 

d3_coef . array  =  inatrix(l,  dS^coef.ROV,  1,  d3_coef.C0L); 
loopi j (d3_coef . R0W,d3_coef .COL)  d3_coef. array [i+l]  [j+lj  =  0.0; 

h_of„n. vector  =  vector (1 , imagepointer->R0W*2) ; 
loopi (iinagepointer->R0W+2)  h_of_n. vector[i+lj  =  0.0; 
g_of„n. vector  =  vector (1 , imagepointer->R0W*2) ; 
loopi(imagepointer->R0W*2)  g_of_n. voctor[i+l]  =  0.0; 
phi. vector  =  vector(l ,2*imagepointer->R0W) ; 
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loopi(iiaagepoiiLter->K0U^2)  phi. vector [i+lj  =  0.0; 
phlllipc.  vector  =  vector(l,2'^iiBagepoint«r->R0W}: 
loopi(inagepointer->R0V*2)  phiflipc .vector [i-i-l]  =  0.0; 
h_oi_nllipo. vector  =  vectord ,iaagepointer->R0W*2) ; 
loopi(iiiagepointer->R0W4'2)  h_ol_nflipo.  vector  [i+lj  =  0.0; 
g_ol_nllipo,  vector  =  vectord  .iB>agepoiiiter->R0V+2) ; 
loopi(inagepointer''>R0V+2)  g_oi_nflipo. vector [i+ij  =  0.0; 
h_of_nilipc. vector  =  vector (1 ,iiiagepointer->R0U«2) ; 
loopi(imagepointer->R0V*2)  h.oi_nflipc.vector[i+lj  =  0.0; 
g_oi_nflipc. vector  =  vector (X,iA&gapointer->R0W+2); 
loopidnagepointer->RQW+2}  g_of_nllipc. vector [i+lj  “  0.0; 

/*  display  menu  ♦/ 

/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 


priiitf("\ii\R  RECOISTRUCTIOf  MElU\n\n“); 
printiC  1  =  Piece-wise  Constant .  (I/A)\n'') ; 
printK"  2  =  Piece-wise  Linear.  (lA)\n'') ; 

printiC  3  =  Daubechies  M=2.\n"); 

printf("  4  =  Daubechies  1=3. \n''); 

printlC  6  =  Daubechies  1=4. \n*'); 

printlC"  6  =  Daubechies  l!=5.\n*'): 

printiC"  7  =  Daubechies  1=6.  \n''); 

printl(“  8  =  Daubechies  1=7. \n''); 

printK"  9  =  Daubechies  1=8. \n"): 

printK"  10  =  Daubvchies  1=9.  \n"); 

printfC  11  =  Daubechies  1=10. \n**); 

nrintfC'  12  =  Snlinea.\n"Tl ; 

printiC  13  =  Morlet.  (S/AjWO; 

printfC  Enter  an  integer  (1-13):"); 

scanfCXd",  Awavelet.type) ; 


if(wavelet_typa  <  1  I |  wavelet.type  >  13  ] ' 

printf C\nYou  have  chosen  an  invalid  ttavelet  or"); 
printK"\nit  is  not  currently  available."); 

> 

else  [ 


/+  Set  value  of  vave^code  for  input  filename  */ 

if  (wav rlet_typ«  ==  3)  sprintf (wave.code.  "db2") ; 
if  (wavelet_type  ==  4)  sprintKwave^code.  "db3"j; 
if  (wavelet_type  ==  6)  sprintf (wave„code,  *'db4"); 
if  (wavelet_type  ==  6)  sprintf (wave.cC'Ce,  "db6"); 
if  (wavelet^type  ==  7)  sprintf (wave.code,  "db6"); 
if  (savclet_type  ==  8)  sprintf (vave.code,  "db7") ; 
if  (wavelet_type  ==  9)  sprintf (wave_code,  "db8") ; 
if  (wavelet.type  ==  10)  sprintf («ave_code,  "db9"); 
if  (wavelet.type  ==  11)  sprintf («ave_code.  "dbO"); 
if  (wavelet_type  ==  12)  sprintf (wave_oode,  "spl"); 

/*  Generate  Phi  and  Filters  */ 

filter8(wavelet_type,h_of_npointer,g_of_npointer,phipoiRter); 
/•  flip  the  filters  */ 


loopl j (h_of _npointer->langth) 
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holder  [h_of_npoint«r->leivgth  +1  -j]=  h_ot_npoii\t'^r->vector  [j]  ; 
loopl j (h_ol_npointer->l8ngth) 
h_of_npoiater->vector[j3  -  holderCj]; 
looplj (g_of _npoint«r->length) 

holder [g_of_npointer->length  +1  -j]=  g_of„npoiiiter->vector[j3 ; 
loopl j (g_ol_npoiRt«r->length) 

g_of_npointer->v«ctor[jj  =  holder[j] ; 

h_ol_nf 1 ipcpo int  er =  h_ot  _npo int  er ; 
g_ol_nflipcpointer=  g_of_npointer; 


/+  Call  reconvolution  routine  to  reconstruct  from  >. '>ursest  phi  ♦/ 
/*  coelf icients  and  all  of  the  psi  coefficients.  ♦/ 

maxlevel  =  L0G2(imagepointer->R0W) ; ACalculate  the  highest  level*/ 
temp. ROW  =  1;  temp. COL  =  1; 

do  {  J*  make  sure  image  is  bigger  than  filter  */ 

temp. ROW  *“2: 
temp. COL  *=2; 

— maxlavel: 

}  while  (temp. ROW  <  h_ol_n. length/2); 

c_coof.ROW  =  temp. ROW;  c_coef .COL  =  temp. COL; 
dl_coef.ROW  =  temp. ROW;  dl_coef.COL  =  temp. COL; 
d2_coel.RuW  =  temp. ROW;  d2_coef.C0L  =  temp. COL; 
d3_coef.R0W  ~  temp. ROW;  d3„coef.C0L  =  temp. COL; 

1=1; 

1 or (k=mar level ; k>0 ; — k) { 

/*  for(k-maxl€Vel;k==maxlevel;"k)C  ♦/ 
if(l  ==  1){ 

sprint! (filename,  '"/s.Vid.c.y.s",  infilename,  k ,Bave_code) ; 
OP£K_FlLS(inf ile ,  filename,  "The  Wavelet  Analyzer") 
loopij  (c_coel  .ROW,c_<.oel  .COL) 

Iscanf  (infile,  "'/,l\n",  Atc_coef  .arrayCi+l]  [j  +  1])  ; 
CLQSE_FILC(i ,  fileneane,  "The  Wavelet  Analyzer",  infile) 

1  =  0; 

}  /♦  end  if  */ 
olso  ^ 

c.coef.ROW  =  temp.ROW; 
c_coof.CQL  =  temp. COL; 

loopij (c..coef .ROW, c_coef .COL)  c_coel.axray [i+l]  [j+lj  = 
tamri.arrayCi-*!]  [j  +  1]  ; 

}  /*  end  else  ■»/ 

sprint! (f;i.lenamo,  "%s.y,d.dl  .'/.s",  infilename,  k,wave_code)  , 
OPEll...FILE(inlile ,  filename,  "The  Wavelet  Analyzer") 
loopij {dl_coef . R0W,dl_coef . COL) 

f  scan!  (xiif  ile ,  "XfXn",  *dl_coef  .arrayCi+l]  [j  +  l3  )  ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

sprint! (filename.  "y,8.y,d.d2.y,B",  infilename,  k,wave_code)  ; 
OPRII_FILE(in!ile,  filename,  "The  Wavelet  Analyzer") 
loopij  (d2.,coeS  .  RCW,d2_coef  .  COL) 

fscanf (inf lie,  ")if\n",  Ad2_coef .array [i+l] [j+J] ) ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

sprint! (filename,  ")(F-.y,d.d3.y,s",  infilename,  k,wave_code) ; 
OPEK_FILE(infilo,  filename,  "The  Wavelet  Analyzer") 
loopij (d3_coef. ROW, d3_coef .COL) 

fscanf  (infile,  "y.f\n",  *d3..coef  .array [i+1]  [j  +  1]  ) ; 
CLOSE_FILE(i ,  filename,  "The  Wavelet  Analyzer",  infile) 
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printiC'XnPerlonaing  re convolution  with  filters,  level  k) ; 

reconvolveCtemppointer ,  h_of_nflipcpointer,  g_ol_7iflipcpointer, 
c_coef pointer ,  dl_coefpointer ,  d2_coef pointer , 
d3_coefpointer) ; 

if (wavelet_type  ==  12) 

loopij (temp. ROW, temp. COL)  temp.arrayCi+1] [j+l]  ♦=  4; 

sprint! (filename,  ")^s.%d.c./(s  .rec",  inf ilename, k- 1  ,wave_ code)  ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (temp. ROW, temp. COL) 

fprintf (outf ile,  "Xf\n",  temp. arrayCi+l) [j+l] ) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

}  /♦  end  loop  ♦/ 

}  /*  end  else  ♦/ 

/*  free  memory  ♦/ 

free_matrix(temp. array,  1,  temp. ROW,  1,  temp. COL); 
free_imatriz(newimage .array ,  1,  newimage .ROW,  1,  nesimage .COL) ; 
free_matrix(c_coef .array ,  1,  c_coef.R0W,  1,  c_coef.COL); 
free_matrix(dl_coef .array ,  1,  dl_coef.ROW,  1,  dl_coef .COL) ; 
free_matrix(d2_coef .array,  1,  d2„coef.R0W,  1,  d2_coef .COL) ; 
frco_matrix(d3_coef. array,  1,  d3_coef.R0W,  1,  d3_coef .COL) ; 

/*  THE  EHD  +/ 

> 

B.2.5  Listing  of  FILTERS. C 

/♦♦♦  WAVELET  HAG  FILTER  SUBROUTIliE  •*/ 

/*  DATE;  20  June  91 
VERSION;  2.0 
NAME;  f liters. c 

DESCRIPTION;  This  subroutine  is  intended  to  be  pairt  of  a  Wavelet 
emalyzing  program  called  "uave2".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-save. c. 

This  routine  provides  the  caller  with  the  discrete  points  of  a  pair  of 
response  functions  previously  derived  and  hard  coded  corresponding  to 
the  type  of  wavelet  desired.  Also,  the  scaling  function, 
phi(x)  is  provided  for  the  purpose  of  generating  the  phi 
coefficients  at  level  zero. 

FILES  READ:  NONE 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGKAKS:  decompose. c,  nrutil.c 
PROGRAMS  CALLED:  NONE 

AUTHOR;  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY;  Version  2  altered  filters. c  for  spatial  convolution  from  the 
Fourier  convolution  used  in  version  1. 

*/ 

/41  + 4  *+**4«i^  «  +  +  +  +  +  *•  +  +  ++  +  +  +  +  +  +  ++  +  *  +  +  +  +  +  +  +  +  +  +  ++  +  +  +  +  / 

/4 *4* 4 44 4444 444 4**4 44*44 *« 4444444 4 4444 VV+VV************** *44+4 +++<<4+ 4+4+++++/ 
/+ +44+4 44+44444 4+444444444/ 

/*  DECLARATION  SECTION  +/ 

/ 44+444+44444+4 44 4 +444 +4 4 4/ 

Ninclude  <stdio.h> 
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♦include  "jsmacroB .h" 

/♦  MAII  PROGRAM  BODY  ♦/ 

void  filters  (wav6let_type,h_of_npointer ,g_of_npoiiiter,phipointer) 
iat  wavelet_type; 

lloat_vector  ♦h_of_npointer,  *g_ol_npointer,  ephipointer; 

i 

/*  The  response  functions  of  the  H  and  G  filters  are  evaluated  at  the  */ 
/*  negative  of  the  argument,  i.e.  g(n)=g{-n)  and  h(n)=h(-n)  */ 

if  (wavelet_type  ==  1){ 

printf ("\nThis  selection  not  currently  available.'*); 


if  (savelet_type  ==  2){ 

printf ("\nThis  selection  not  currently  available."); 


if  (uavelet„type  ==  3){ 
h_of _npointer->vector [4] 
h_of_npointer->vector [5] 
h_of_npointer->vector [6] 
h_of _npointer->vector [7] 
J»_of _npointer->vector [1 ] 
h_of_npointer->vector[2] 
h_of_npointcr->voctorC3] 
h_of _npointer->length  = 

g_of _npointer->vector [4] 
g_of _npointer->vector [6] 
g^of _npointer->vector [6] 
g_of_npointer-> vector [7]  = 
g_of_npointer->vector[l]  = 
g_of_npointer->vector[2]  = 
g_of_npointer->vector [3]  = 
g_of _npointer->length  =  7; 


=  .482962;  /*  h(0)*/ 

=  .836616;  /♦  h(l)*/ 

=  .224143;  /*  h(2)*/ 

=  -.129409;  /♦  h(3)*/ 

=  0.0;  /♦  h(-3)*/ 

=  0.0;  /*  h(-2)e/ 

=  0.0;  /*  h(-l)*/ 

7; 

.836616;  /♦  g(0)e/ 
.482962;  /♦  g(l)V 

0.0;  /*  g(2)*/ 

0.0;  /*  g(3)*/ 

0.0;  /*  g(-3)*/ 
-.129409;  /•  g(-2)*/ 
-.224143;  /♦  g(-l)*/ 


phipointer->vector[l]  =  0.032348668;  /*  phi(0)+,/ 
phipointer“>voctorC2]  =  1.302567647;  /♦  pbi{l)*/ 
phi^ ointer->vectorC3]  =  -0.334912636;  /*  phi(2)*/ 
phipointer->vector[4]  =  0.0000000001;  /*  phiCS)*/ 
phipointer->vector [6]  =  0.0000000001;  /*  phi(-3)*/ 
phipointer->vectorC6]  =  0.0000000001;  /♦  phi(-2)*/ 
phipointer->vector[7]  =  0.0000000001;  /*  phi(-l)*/ 
phipointer->length  =7; 

if  (wavelet_type  ==  4){ 

h_of_npointer->vector[6]  =  0.332670563;  /*  h(0)*/ 
h.,of _npointer->vector [7]  =  0.806891609;  /*  h(l)*/ 
h_ol_npointer->vectorC8]  =  0.469877602;  /♦  h(2)»/ 
h_of_npointer->vectorC9]  =  -0.136011020;  /♦  h(3)*/ 
h_of_npointer->vector[10]  =  -0.086441274;  /♦  b(4)*/ 
h_of_npointer->vectorCll]  =  0.036226292;  /*  h(6)*/ 

h_of _apointer->vector [1]  =  0.0;  /*  h(-B)*/ 

h_of_npointer->vector[2]  =  0.0;  /*  h(-4)*/ 

h_of _npointer->vector [3]  =  0.0;  /*  h(-3)*/ 

h_of_npointer->vector [4]  =  0.0;  /♦  h(-2)*/ 

h_of_npointer->vectorC6]  =  0.0;  /*  h(-l)*/ 

h_of _npointer->length  =  11; 

g_of _npointer->vector [6)  =  0.806891609;  /♦  g(0)*/ 
g_of„npointer->vectorC73  =  0.332670563;  /*  g(l)+/ 
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g_of_npoiiiter-->vector[8]  =  0.0;  /*  g(2)*/ 
g_of _npointer->vector [9]  =  0.0;  /*  g(3)*/ 
g_of _npointer->vectox-[lO]  =  0,0;  /*  g(4)*/ 
g_of_npointer->vector [11]  =  0.0;  /*  g(5)*/ 
g_of_npoiiiter->vector [1]  =  0.0;  /♦  g(-5)*/ 
g_of_npointer->vector [2]  =  0.459877602;  /*  g(-4)*/ 
g_ol_npointer->vector[3]  =  -0.135011020;  /♦  g(-3)*/ 
g_of _npointer->vectorC4]  =  -0.086441274;  /*  g(-2)*/ 
g_of_npoiater->vector[53  =  0.035226292;  /*  g(-l)*/ 
g_ol_npoiiiter->length  =  11; 

phipoiuter->vector[l]  =  0.001129175;  /*  phi{0)*/ 
phipointer-> vector [2]  =  1.285632069;  /*  phiil)^/ 
phipointer->vector[3]  =  -0.386241412;  /*  phi(2)*/ 
pliipointer->vector[4]  =  0.096244687;  /*  phi(3)*/ 
phipointer->vector[6j  =  0.004229018;  /*  phi(4)*/ 
phipointer->vector[6]  =  0.000000001;  /*  piiLi(5)f/ 
phipointer->vector[7]  =  0.0000000001;  /*  pbiCS)*/ 
phipointer->vector [8]  =  0.0000000001;  /*  phi (-4)+/ 
phipointer->vector[9]  =  0.0000000001;  /*  phi(-3)+/ 
phipointer->vector[10]  -  0.0000000001;  /*  phi(-2)*/ 
phipointer->vector[ll3  =  0.0000000001;  /*  phi(-l)*/ 
phipointer->length  =  11; 

> 

if  (Havelet_type  ==^  5){ 

h_of_npointer->vector [8]  -  0.230377813;  /♦  h(0)*/ 
h_of _npointer->vectorC93  *  0.714846671;  /♦  hil)*/ 
h_of_npointer->vector [10]  =  0.630880768;  A  h(2)»/ 
h_of_npointer->vector[ll]  =  -0.027983769;  /*  h(3)*/ 
h_of_npoint«r->vector [12]  =  -0.187034812;  /*  h(4A/ 
h_of_npoiiiter->vector [13]  =  0.030841382;  /*  h(6)*/ 
h_of_npointer->vector[14]  =  0.032883012;  /♦  hie)*/ 
h„of_npointer->vector[15]  =  -0.010597402;  /♦  h(7)*/ 
h_of_npointer->vectorLl]  =  0.0;  /*  h(-7)*/ 

h_of_npointer->vector[2]  =  0.0;  /*  hi-6)*/ 

h_of_npointer->vector [3]  =  0.0;  /*  h(~5)*/ 

h_of_npointer->vector [4]  =  0.0;  /♦  h(-4)*/ 

h_of_npointer->vector [6]  =  0.0;  /*  h(-3)*/ 

h_of _npoiiiter->vector [6]  =  0.0;  /*  h(-2)*/ 

h_of_npointer->vector [7]  =  0.0;  /*  h(-l)*/ 

h_oi_npointer->iength  =  lb; 

g_of_npoiiiter->vector [8]  =  0.714846671;  /♦  g(0)*/ 
g_ol_r.poiiiter->vector [9]  =  0.230377813;  /♦  g(l)*/ 
g_of_npointer->vector [10]  =  0.0;  /♦  g(2)*/ 
g_of_npoint6r->vector [11]  =  0.0;  /*  g(3)*/ 
g_of_npointer->vector [12]  =  0.0;  /*  g(4)*/ 
g_of_npointer->vcctor[13]  =  0.0;  /*  g(S)*/ 
g_of_npointer->vector[14]  =  0.0;  /*  g(6)*/ 
g_of_npointer->vector[15]  =  0.0;  /*  g(7)*/ 
g_ol_npointer->vector [1]  =  0.0;  /*  g(-7)*/ 
g_of_npoiater->vector [2]  =  -0.010697402;  /*  g(-6)*/ 
g_of_npointer-.'>vector [3]  =  0.032883012;  /*  g(-5)*/ 
g_of_npointer->vector[4]  =  0.030841382;  /*  gi-4)*/ 
g_of_npoiviter->vector [6]  =  -0.187034812;  /*  g(-3)*/ 
g_of _npoip.ter->vector [6]  =  -0.027983769;  /*  g(-2)*/ 
g_of_npointer->vector [7]  =  0.630880768;  /*  g(-l)*/ 
g_of_npointer->longth  -  16; 

phipointer->vector [l]  =  0.000041362;  /*  phi(O)*/ 
phipointer->vector [2]  =  1.010496941;  /♦  phiil)*/ 
phipointer->vector [3]  =  -0.039093761;  /*  phi (2)*/ 
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p5iipointer->vector[43  -  0 
phipointer->vectorC5]  =  - 
phipoint«r->vectorL6]  =  - 
phipointer->vector [7]  =  0 
phipointei- >\ector [P]  ~  0 
phipointer->vector [93  =  0 
phipoiiiter->vect;or  [10]  = 
pliipoiiiter->ver,tor[ll3  = 
phipointer->vector [12]  = 
phipointsr->vector [13]  = 
phipointer->vector[14]  = 
phipointer-l'vector[15]  = 
phipointer->length  =  IS; 

il  (Havelet_type  ==  6){ 

printf ("\nThis  selection  not 

} 

il  (wavelet_type  ==  7){ 

h_of_npointer->vectcr[12] 
h_ol_npointer->vector[13] 
h_ol_npointor->vector[14] 
h_ol_npointer-> vector [15] 
h_ol_npointer-> vector [16] 
h_ol_npointer->vector[17] 
h_ol_npointer->vector[18] 
h_ol _npointer->vector [19] 
h_ol _npointer->vector [20] 
h_ol_npointer->voctor[21] 
Ji_of _npointer->vector [22] 
h_ol_npointer-> vector [23] 
li_ol_npoii\ter->vector[l] 
h_of _npointer->vector [2] 
h_ol_npointer->vector [3] 
h_of_npointer->vector[4]  = 
h._ol_npointer->  vector  [5]  = 
h_of_npointer->vector [6]  - 
h_ol_npointer->vector [7]  = 
h_ol_npointer-> vector [8]  = 
h_of _npointer->vector [9]  = 
h„oi_npointer->vector [10]  • 
h_oi_iipointer->vectorLiiJ  ■ 
h_of_npointer->length  =  23 

g_c>l_npointer->  vector  [12] 
g_of_npointer->vector[13] 
g.-C)J_npointer->vcctor[i4] 
g_of_npointer-> vector [15] 
g_ol_npointer->vector [16] 
g_ol_npointer->vector [17] 
g_of _npointer->vector [18] 
g_ol_npointer->vector[19] 
g_ol_npointer->vector [20] 
g_of_npointer-> vector [21] 
g_of_npointer-> vector [22] 
g_ol_npointei—> vector [23] 
g_of_npointer->vector [1]  = 
g_of_npointer->vector[2]  = 
g_ol_npointer->vector[3]  = 
g_ol_npointer->vector [4]  = 
g_of_npointer->vector [6]  = 
g_ol_np  ■  itor->vector[6]  = 


.041834300;  f*  phi(3)*/ 
0.012011135;  /♦  phi(4)*/ 
0.001294973;  /♦  phi(.S)*/ 
.000021869;  /♦  phi(6)*/ 
.000000001;  /*  phi(7)*/ 
.0000000001;  /*  Dhi(-7)*/ 
0.0000000001;  /♦  phi(-6)*/ 
0.0000000001;  /*  plii(-6)*/ 
0.0000000001;  /♦  phi(-4)*/ 
0.0000000001;  /♦  phi (-3)#/ 
0.0000000001;  /*  pbi(-2)*/ 
0.0000000001;  /♦  phi(-l)*/ 


currently  available.**); 


=  0.111540743;  /*  h(0)*/ 

=  0.494623890;  /*  h(l)*/ 

=  0.751133908;  /*  h(2)V 
=  0.316250352;  /♦  h(3)e/ 

=  -0.226264694;  /*  h(4)*/ 

=  -0,129766668;  /*  h(5)*/ 

=  0.097601606;  /*  h(6)*/ 

=  0.027522866;  /*  h(7)*/ 

=  -0.031582039;  /♦  h(8)*/ 

=  0.000553842;  /*  HO)*/ 

=  0.004777257;  /*  h(10)t>/ 

=  -0.001077301;  /*  h(ll)*/ 
=  0.0;  /*  h(-ll)*/ 

=  0.0;  /*  h(-lO)*/ 

=  0.0;  /*  h(-9)*/ 

0.0;  /♦  h(-8)*/ 

0.0;  /♦  h(-7)*/ 

0.0;  /♦  h(-6)*/ 

0.0;  /♦  h(-6)»/ 

0.0;  A  h(-4)*/ 

0.0;  /*  h(-3)*/ 

0.0;  /*  H-2)*/ 

0.0;  /■»  h(-l)'»‘/ 


-0.494623890;  /*  gCO)*/ 

0.115407434;  /*  g(l)*/ 

0.0;  /♦  g(2)<‘/ 

0.0;  /♦  g(3)*/ 

0,0;  /♦  g(4)*/ 

0.0;  /♦  g(S)*/ 

0.0,  /•  g(6)*/ 

0.0;  /+  g(7)*/ 

0.0;  /♦  g(8)-»/ 

0.0;  /♦  g(9)*/ 

0.0;  /♦  g(10)*/ 

0.0;  /»  g(ll)*/ 

0.0;  /*  g(-ll)*/ 
0.001077301;  /+  g{-10)*/ 
0.004777257;  /*  g(-9)+/ 
-0.000653842;  /*  g(-8)f/ 
-0.031582039;  /♦  g(-r)*/ 
-0.027622866;  /♦  g(-6)»/ 


g_ol_npointer->vector [7]  =  0.097501606;  **  g(-S)*/ 
g.,ol_npointer->vector [3]  =  0.129766868;  /*  g(-4)*/ 
g_of_npointei->vector[9]  =  -0,226264694;  /*  g(-3)*/ 
g_of_npointer->vector  [10]  =  -0.315250362;  /*  g(-2)*/ 
g_of_iipointer->ver,toi-[H]  -  0.751133908;  A  g(-l)*/ 
g_ol_iipointer->length  -  23; 


phipointer->vector [1]  = 
phipointer->vector[2]  • 
phipointer->vector[3]  = 
phipointer->vector [4]  = 
phipointer->vector [6]  = 
phjpointer-> vector [6]  = 
phipointer->vector [7]  = 
phipointer->vector [8]  = 
phipointer->vector [9]  = 
phipointer->vector [10] 
phipointer->vector [11] 
phipoiiiter->vector  [12] 
phipointer->vector [13] 
pliipoint6r->vector  [14] 
phipointer->vector [16] 
phipointer->vector [16] 
phipointer->vector [17] 
phipointer->vactor [18] 
phipointer->vector [19] 
phipointer->vector [20] 
plxipointei*— ^vector  [21] 
phipointer->vector [22] 
phipointer->vector [23] 
phipointer->length  = 


0.000018901;  /*  phi(O)*/' 
0.474401220;  /*  phi(l)*/ 
0.807783651;  /*  phi(2)*/ 
-0.376163961;  /*  phi(3)*/ 
0.137747794;  /♦  phi(4)*/ 
-0.024343102;  /♦  phi(6)*/ 
-0.003162779;  /*  phi(6)*/ 
0.001579497;  /*  phi(7)*/ 
0.000017680;  /♦  phi(8)*/ 

=  -0.000001908;  /*  phi(9)^/ 

-  0.000000002;  /=*  phi (10)*/ 

=  0.000000001;  /♦  phi{ll)*/ 

=  0.0000000001;  /♦  phi(-ll)*/ 
=  0.0000000001;  /*  phi(-lO)*/ 
=  0.0000000001;  /*  phi(-9)*/ 

=  0.0000000001;  /*  phi(-8)»/ 

=  0.0000000001;  /*  phi(-7)*/ 

=  0.0000000001;  /*  phi(-6)*/ 

=  0.0000000001;  /*  phi(-6)*/ 
s  0.0000000001;  /♦  phi(-4)*/ 

—  U  .  wv/wvwvvvi.  I  /  pjjiA  v 

=  0.0000000001;  /*  phi(-2)*/ 
O.OOOOOOOOOl;  /*  phi(-l)*/ 
23; 


> 

if  (wavelet _type  ■==  8)-[ 

printf("\nThis  selection  not  currently  available."); 

> 

if  (wavelet _type  ==  9){ 

printf ("\nThis  selection  not  currently  available."); 

} 

if  (wavelet _type  ==  10){ 

printf ("\nThis  selection  not  currently  available."); 

if  (wavelet _type  ==  ll){ 

printf ("\nThis  selection  not  currently  available."); 

> 

if  (wavelet_'*'>i.  5  ==  12){ 

h_of_npointer-.'»vector [13]  =  0.642;  /*  h(0)*/ 
h_of_npointer->vector[14]  =  0,307;  /♦  h(l)*/ 
h_of_npointer->vector [15]  =  -0,036;  /•  h(2)*/ 
h_of_npointer->vector [16]  =  -0.078;  /*  b(3)*/ 
h_of_npointer->vectcr[17]  =  0.023;  /*  h(4)*/ 
h_of_npointer->vector [18]  =  0.030;  /*  h(5)*/ 
h_of_npoirter->vector[19]  =  -0.012;  /*  h(6)*/ 

h_of_npointer->vector[20]  =  -0.013;  /*  h(7j*/ 
h_of_npointer->vector[2l]  =  0.006;  /*  h(8)*/ 

h_of_npointer->vector [22]  =  0.006;  /♦  h(9)*/ 
h_of_npointer->vector [23]  =  -0.003;  /*  h(10)*/ 
h_of_npointer->vector [24]  -  -0  002;  /*  h(ll)*/ 
h_of_npointer->vector [25]  =  0.0;  /♦  h(12)+/ 
h_of_npointer->vector[l]  -  C.O;  /*  h(-12)*/ 
h_of  ,npointcr->vector[23  =  -0.002;  /*  h(-ll)*/ 
h_of_npointer->vector [3]  =  -0.003;  /*  b(~10)*/ 
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h_of_npointer->vector [4]  =  0.006;  /+  h(-9’)f/ 
h_of_apointer->vector fB]  -  0.006;  /♦  h(-8)*/ 
h_of_npointer->vector '‘6]  =  -0.013;  /*  h(-7)V 
h_ol„npointer->vector [7]  =  -0.012;  /♦  h(-6)*/ 
h_of _npointer-->vectorC8]  =  0.030;  /♦  h(-5)*/ 

h_of_npcinter->vector [9]  =  0.023;  /*  h(-4)*/ 
h_of_npointer->vector [10]  =  -0.078:  /+  h(-3)*/ 

h_of_npoiiiter->vector [11]  =  -0.035;  /♦  h(-2)*/ 

h_ol  .npointer->vector  [12]  =  0.307;  /■*  li(-l)*/ 

li_ol_npcinter->],ength  =  25; 

g_of_npointer->vector [13]  =  -0.307;  /♦  g(0)*/ 
g..of_npointer->V6Ctor [14]  =  0.542;  /♦  gil)'/ 
g_of_npointer->vect.or [IS]  =  -0.307;  /•  g(2)*/ 
g_of_npointer->vector [16]  =  -0.03B;  /*  g(3)*/ 
g_of_npointer->vector [17]  =  0.078;  /♦  g(4)*/ 
g_of_iipointer->vector [18]  =  0.023;  /♦  g(5)*/ 
g_of_npointer->vector [19]  =  -0.030;  /+  £^6)*/ 
g_of_Rpoiiiter->vector [20]  =  -0.012;  /♦  g(7)*/ 
g_of_npointer->vector [21]  =  0.013;  /♦  g(8)*/ 
g_of_npointer->vector [22]  =  0.006;  /*  g(9)*/ 
g_of_npointer->vcctor [23]  =  -0.006;  /»  g(3.0)*/ 

g_of_npointer->vector [24]  =  -0.003;  /*  gill)*/ 

g_of _npointer->vector [25]  =  C.002;  /* 
g_of_npointer->vector [l]  =  0.0;  /*  g(-12)*/ 
g_of_npointer->vector [2]  =  0.0;  /*  g(-ll)*/ 
g_of_npointer->vector [3]  =  0.002;  /*  g(-lO)*/ 
g-oJ_npointer->vector[4]  =  -0.003;  /♦  g(-9)*/ 
g_of_npointer->v6ctor[5]  =  -0.006;  /*  g(-0)*/ 
g_of„npoint«r->vector[6]  =  0.006;  /*  g(-7)*/ 
g_of_npointer->vector [7]  =  0.013;  /*  g(-6)*/ 
g_of_npoint«r->vector [8]  =  -0.012;  /♦  g(-5)*/ 
g_of_npoiiiter->vector [9]  =  -0.030;  /*  g(-4)*/ 
g_of_npointer->vector [10]  =  0.023;  /*  g(-3)*/ 
g-of_iipointer->vector [ilj  =  0.078;  /♦  £(-2)*/ 
g_of_npointer->vector [12]  =  -0.035;  /♦  g(-l)*/ 
g_of_iipointer->length  =  25; 

phipointer->vector[l]  =  0.5385;  /*  phi(0)+/ 
phipQinter->vector [2]  =  -0.2106;  /♦  phi(l)i‘/ 
phipoiiiter-;>v»?ctor[3]  =  0.04319;  /*  phi(2)*/ 

phipointer->vect.or [4]  =  0.01334;  /♦  phi(3)*/ 

phipointer- .>vector [5]  =  0.00738;  /♦  phi (4)*/ 

phipointer->vector [6]  =  -0.00324;  /♦  phi(5)*/ 

phipointer->ve<;tor [7]  =  0.0C030;  /*  phi (6)*/ 

phipointer->vector [8]  =  -0.00012;  /•  phi(7)*/ 

phipointer->vector [9]  =  0.00001;  /*  phi(8)*/ 
phipointer->vector [10]  -  0.0000000001;  /*  phi(9)*/ 

phipointer->vector [11]  =  0.000000001;  /•  phi(lO)*/ 
phipointer->vector[12]  =  0.000000001;  />  phi(ll)*/ 
phipointer->vectorLl3]  =  0.0000000001;  /•  phi(-ll)*/ 
phipoiiiter->vector [14]  =  0.0000000001;  /*  phi(- 10)‘i'/ 
phipointer->vectoi  [15]  =  0,0000000001;  /♦  phi(-9)*/ 
phipointer->vector [16]  =  0.00001;  /♦  phi(-8)*/ 
phipoiiiter->vectojr[17]  =  -0.00012;  /♦  phi(-7)*/ 
phipointei-->vector [18]  =  O.00P30;  /♦  phi{-6)*/ 
phipointer->vector [19]  =  -0.00324;  /*  phi(-6)*/ 
phipointer->vector [20]  =  O.OO'^SB;  /*  phi(-4)*/ 
phi.pointer->vector[21]  -  0.01334;  /*  phi(-3)*/ 
phipointer->vector [22]  =  0.04319;  /*  phi(-2)*/ 
phipoinrer->vector[233  =  -0.02106;  /♦  phi(-l)*/ 
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phipo  inter '•>l6ngth  =  23; 


.1 


I 

4 


> 

if  (Havelet_type  ==  13) { 

printf ("\nThis  selection  not  currently  available."); 

if  (wavelet_type  >  13  I |  wavelet _type  <  1) 

printf ("\nYou  have  chosen  an  invalid  selaction. ") ; 

/*  THE  END  */ 

> 


B.S.6  Listing  of  CONVOLVE. G 

/++♦  WAVELET  CONVOLUTION  SUBROUTINE  **/ 

/♦  DATE;  19  June  91 
VERSION;  1.0 
NAME;  convolve. c 

DESCRIPTION;  Th;^s  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wave".  The  algorithm  used  is  discussed  xn 
the  description  of  the  main  driver  module  called  "main-wave. c. 

D-.ta  is  passed  by  reference  from  the  decomposition  subroutino.  Data  is 
in  ASCII  format  arranged  in  a  square  matrix  whose  dimansions  are  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  th;  caller.) 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAHS:  decompose. c,  nrutil.c 

PROGRAMS  CALLED:  needs  nr  library,  libnr.a 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY;  Initial  Version. 

♦/ 

/4444444444e'»:4>•‘4^4*4<^4')■4>^*'t44t44■4444  44»444444*«*4It■e*e4t*V*ee4te4■*4‘44>4e4e44>t"t>/ 

/4  +  S*4+  +  +  4t44t444  +  44't'444 

/*  DECLARATION  SECTION  <>/ 

/4*44444444e'l>>4i>(<>l<4<4>4‘*4‘44>4')'t/ 

#include  <stdio.h> 

#include  "jsmacros.h" 

float  if'vectorO; 
float  ■•'♦matrix(); 
void  free_vector() ; 
void  free_vector() ; 
void  spconvlvO; 

/44 444444444444444444444/ 

/♦  MAIN  PROGRAM  BODY  */ 

/444444  4*<'*e»’1‘*e’»f'(‘1'‘l‘e*+/ 

void  convolve  (datainpo inter ,  h_of_npo inter  ,g_of_npointer ,  c_coef pointer , 
dl.coefpo.inter ,  d2_coefpointer ,  d3_cosfpointer) 
float_arr:  y  ♦'datainpointer ; 
float_voctor  *h_of_npointer ,  ♦g_of_npointer; 

f loat_ar4ay  ♦c_coefpointer ,*dl_coefpo inter , ♦d2  coef po inter ,+d3_coof pointer ; 

{ 
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/^f^^^^C^t^^^l^t*************/ 

/*  declare  variables  */ 
int  i.  j: 

f loat_vector  rowin , rowout , colin, colout , response ; 
float_array  temp; 

FILE  ♦outfile; 
char  filename [64] : 

/*  allocate  memory  */ 

/♦♦*♦*♦**♦♦*♦♦♦♦♦♦♦♦*/ 

temp.aLrray  =  matrix(l,  data:  pointer->ROW,  1,  datainpointer->COL) ; 
loopij (datainpointer->P.OW,davainpointer->COL)  temp .array [i+l] [j+1]  =  0.0; 
rowin. vector  =  vector (i,2*datainpoiittor->C0L); 
loopi(2*datainpointer->C0L)  rowin. vector [i+l]  =  0.0; 
rowout . vector  =  ve'.tor (1 ,4+datainpointer->C0L) ; 
loopi(iiatainpointer->C0L*4)  rowout .vector [i+l]  =  0.0; 
colin.  vector  =  vector  (l,2*datainpoii!.ter->R0W); 
loopi(2+datainpointer->R0W)  colin. vector [i+l]  =  0.0; 
colout . vector  =  vector(l .4+dataiapointer">R0W) ; 
loopi(datainpointer->R0W*4)  colout .vector [i+l]  =  0.0; 
response. vector  =  vector ( 1, 2*datainpoint«r->R0W) ; 
loopi(datainpointer~>R0W+2)  response. vector [i+l]  =  0.0; 

rowin. length  =  2+datainpoint«r->CdL; 
colin. length  =  2+datainpointor->ROW; 

/*  perform  convolution  +/ 

/♦m*ii>#*********#i»***i»**i»/ 

printf ("\nConvovling  rows  with  h(-n)...‘'); 
loopi(datainpointor->ROW)'C  /♦  convolve  rows  with  h(-n)  +/ 
loop] (datainpointer->R0W*2){ 

response. vector [j  +  l]  =  h_of,npointer->vector  [j  +  l] ; 

loopj (datainpointer->CQL)  rowin. vector [j+1]  =  datainpointer->array [5.+1J [j+1] ; 
spconvlv(rowin. vector, rowin. length, response. vector, h_of_npointer->length, 1 , 
rowout . vector) ; 

loopj (datainpointer->C0L/2)  temp.array [i+l] [j+l]  =  rowout .vector L2*( j+1)] ; 

}  /+  downsample  by  select iny  even  cols  ♦/ 


printf ("\nConvovling  cols  with  h(-n)..,"); 
loopi(dc.tainpointer->C0L/2){  /*  convolve  cols  with  h(-n)  ♦/ 
loopj (datainpointer->R0W*2) 

response . vector  [j+l]  =  h_of_npointor->voctor  [j  +  l] ; 
loopj (datainpointer->R0W)  colin. vector[j+l]  =  temp.array [j+l] [i+l] ; 
spconvl V ( col in . vector , colin . length , response . vector , h_of _npoint er->length , 1 . 
colout .vector) ; 

loopj (datainpointer->R0W/2)  c_coeipointer->array[j+l] [i+l]  =  colout. vector[2*(j+l)] ; 
>  /*  downsample  by  selecting  even  rows  ♦/ 


printf ("\nConvovling  cols  with  g(-n),.."); 

loopi(datainpoirter->C0L/2){  /♦  convolve  cols  with  g(-n)  +/ 
loopj (datainpointer->R0W+2) 

response,  vector  [j  +  l]  =■  g  of_npointor->vector  [j  +  l]  ; 
loopj  (datainpoiiit0r->ROW)  Ck  liii.  vector  [j  +  l]  =  temp.array  [j  +  l]  [i+l]  ; 
spconvl V (col in . vector , colin , length , response . vector , g_of_npointei ->length , 1 , 
colout. vector) ; 
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loopj(dataiiipointer->R0W/2)  dl_coelpoittt«r->array [j  +  l3 Ci+1]  =  colout.vectorC2*(j+l)] ; 

> 

printJ ("\nConvovling  rows  with  g(-n)..."); 
loopi(dataiiipointer->ROW){  /*  convolve  rows  with  g(-n)  */ 
loop  j  (dataiiipointer->R0W*2) 

response , vector [j+1]  =  g_of_npointer->vectorCj+l3 ; 
loopj(datainpointer->CQL)  rowin. vector  [j+l]  =  datainpointer->array [i+1] [j+l]  ; 
spconvlv(rowin . vector .rowin . length, response . vector ,g_of_npointer->length,  1 , 
rowout. vector) ; 

loopj(datainpointer->C0L/2)  temp.zirray [i+1] Cj+l]  =  rowout. vector [2* (j+l) J ; 

} 


printf ("\nConvovling  cols  with  h(-n)...‘'); 

loopi(datainpointei->C0L/2){  /+  convolve  cols  with  h(-n)  */ 
loop j (datainpointer->R0W*2) 

response . vector [j+l]  =  h_of_upointer->vector  [j+l] ; 
loopj(datainpointer->ROW)  colin. vector[j+l]  =  tenp. array [j+l] [i+l] ; 

spconvlv(colin. vector, colin. length, response. vector, h_of_npo inter->length,l , 

colout .vector) ; 

loopj(datainpointer->RQH/2)  d2„coefpointer->array [j  +  l] [i+l]  =  colout. vector [2+{ j+l)]  ; 

> 


printf ("\nConvovling  cols  with  g(-n)..."); 
loopi(datainpointer->C0L/2){  convolve  cols  with  g(~ny  +/ 
loop j (datainpointer->R0H*2) 

response. vector[j+l]  =  g_ol_npointer->vector  [j  +  l] ; 
loopj(datainpointer->ROW)  colin. vector  [j+l]  =  temp.array [j  +  l] [i+l] ; 
spoonvlv (colin . vector , colin . length, response . vector ,g_of_npointer->length , 1 , 

col  out.  vector) ;  ,  ■  .sn 

loopj(datainpointer->R0W/2)  d3_coefpointer->array  [j  +  l]  [i+l]  =  colout .vector [2*(j  +  l)] ; 

> 


/*  reset  row  and  col  indecos.  */ 

c_coefpointer->ROW  =  datainpointer->R0W/2; 
c_coefpointer->COL  =  datainpointer->C0L/2; 
dl.,coofpointer->ROW  =  datainpointer->R0W/2; 
dl_coefpoinT.er->COL  =  datainpointer->C0L/2; 
d2_coefpoirter->R0W  =  datainpointer-  ROW/2; 
d2..coefpointer->C0L  =  datainpointer->C0L/2; 
d3.coolpointei->ROW  =  datainpointer->R0W/2; 
d3_coefpointor->COL  -  dataiupoiiiter->C0L/2; 

/♦  free  wemory  */ 

lreo_niatrix(terap.array ,  1,  datair.pointer->ROW,  1, 
datainpointer->COL) ; 

free_vector  (rowin. vector , 1 ,2*datain,  ointer->ROW) ; 
lree_vector  (rowout . vector , 1 ,4+datainpoiiiter->R0W) ; 
f ree_vector  ( colin . vector , 1 , 2+datainpointer->R0W) ; 
free. vector  (colout .vector, 1 ,4+'datainpointer->R0W) ; 
free_voctor  (response. vector , 1 ,2*datainpointer->R0W) ; 

/*  THE  END  ♦/ 

} 

B.2.7  Lisling  of  RECOIWOLVE.C 
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/***  WAVELET  RECOHVOLUTIOli  SUBRQUTIBE  •*/ 

/t^i^^^t^if^,^^0it^iiiinimi$if^m**m*mif*********************'<‘**’¥**************'**********‘/ 

/t,iHi*ifHttJHf*t************^,^if^ii,^t****’f************<t***********^***************/ 

/*  DATE:  2  July  91  ' 

-  VERSIOH;  1.0 

VAHE:  reconvolve. c 

DESCRIPTIOH:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "«ave2".  The  algorithm  used  is  referenced  in 
the  description  of  the  main  driver  module  called  "main-vave . c . 

Data  is  passed  by  reference  from  the  reconstruction  subroutine.  Data  is 
in  ascii  format  arranged  in  a  squeire  matrix  whose  dimensions  are  a 
power  of  2.  This  requiremeiit  has  not  only  made  progreunming  more 
convenient  but  is  required  by  the  convolution  routine  from  Htunoric 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  NONE  (Passed  by  reference  back  to  the  caller. 

READERS  USED:  <6tdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS:  reconstruct . c 
PROGRAMS  CALLED:  NONE 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY;  Initial  Version. 

*/ 

/^^^^^l^^^^^^’**^^***^^'*****’^*************m*<^******************<^*********4*********/ 


/*  DECLARATION  SECTION  ♦/ 


#include  <stdio.h> 
#include  "jsmacros. 


h" 


float  ♦vectorO: 
float  ♦♦matrix(); 
void  free_vector() ; 
void  fre0_inatrix() ; 


iilt>******  ***********/ 

/*  MAIN  PROGRAM  BODY  +/ 


void  reconvolve (dataoutpo inter . h_of_npo inter .g_of..npointer , c^coefpointer , 
dl_coef pointer ,  d2_coefpointer,  d3_coefpointer) 
float_array  ♦dataoutpointer; 
lloat.vector  '•‘h_of_npo inter,  ♦g,.of_npo inter; 

float.array  *c_coefpointer , ♦dl_coefpo inter, edZ.coelpo inter, ♦d3_coefpointer; 

i 

/*  declare  variables  ♦/ 
int  i ,  j : 

float_vector  roHin,rowout,colin, colour,  response; 
float_array  temp, tempi ,temp2,temp3,temp4; 
char  .  filename [64] ; 

FILE  *outfile; 

/♦  +  ♦♦*♦♦♦♦  +  ♦♦♦♦♦♦♦  ♦*!<</ 

/•  allocate  memory  */ 

/  itc «  e' 4<  e  e' *  t<  4  e<  *  «  ^  / 


temp. ROW  =  c_coef point0r->ROW*2 ; 

temp.  COL  =  c_coefpoiiiter->C0L*2 ; 

vemp. array  =  mo.trixd,  temp. ROW,  1,  temp. COL); 

loopij (temp. ROW, temp. COL)  temp. array [i+l]  [j  +  l]  =  0.0; 
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tempi.  ROW  =  c_';oelpointer->nOW*2; 

tempi.  COL  =  c_c.«efpointer->C0L*2; 

tempi. array  =  matrixd,  tempi. ROW,  i,  tempi. COL); 

loopij (tempi. ROW, tempi. COL)  tempi. array [i+l] [j+l]  =  0.0; 

temp2.R0W  =  c_coefpointer->ROW*2; 

temp2.C0L  =  c_coefpointer->C0L*2; 

temp2. array  =  matrixd,  temp2.R0M,  1,  teBp2.C0L); 

loopij (temp2. ROW, tomp2. COL)  temp2. array Ci+1] [7+1 j  =  0.0; 

temp3.R0W  =  c_coefpointer->R0W*2; 

temp3.CCL  =  c_coelpointer->C0L*2; 

temps. array  =  matrixCl,  tempS.ROW,  1,  tempS.COL); 

loopij(terap3.RQW,temp3.C0L)  tempS. array [i+l]  [j+l j  =  0.0; 

temp4.R0W  =  c_coelpointer->R0W+2; 

temp4.C0L  =  c_coelpointor->COL+2; 

temp4. array  =  matrixd,  temp4.R0W,  1,  teBp4.C0L); 

loopij (temp4. ROW, temp4. COL)  teKp4.array [i+l] [j+l]  =  0.0; 

rowin. vector  =  vector (1 , temp. R0W*2) ; 

loopi(temp.R0W*2)  rowin. vector[i+l]  =  0.0; 

rowout  vector  =  vector (1 , temp .ROW+4) ; 

loopi(teBp.R0W*4)  rowout. vector [i+l]  =  0.0; 

colin. vector  =  vectord,temp.C0L*2) ; 

loopi(temp.COL*2)  colin. v«ctor[i+l]  =  0.0; 

colout , vector  =  vector (1 ,4+temp. COL) ; 

loopi(temp.C0L+4)  colout. vector [i+l]  =  0.0; 

response. vector  =  vector (1, temp. C0L*2) ; 

loopi(temp.C0L*2)  response, to'tor [i+l]  =  0.0; 

rowin- length  =  4*c_coelpointer->C0L; 
colin. length  -  4+c_cooipointez->RQW ; 
dataoutpointer->R0W  =  c_coelpoinr,er->R0W*2; 
dataoutpointer->C0L  =  c_coofpointer->C0L<‘2: 

/*  perform  convolution 

printf ("\nConvovling  cols  of  c_coef  with  hCn)..."): 
loopi ( c_coef pointer->C0L) { 
loopj (c_coefpointer->R0W) 

cclin. vector[2+{j+l)]  =  c_coelpointer->array [j+l] [i+l] ; 
loopj (colin . length) 

response . vector [j  + 1] =h_of _npoint er->vector [ j  + 1] ; 
spconvl V  C  colin . vector .colin. length , response .vector , 
h_ol_npointer->lflngth, 1 .colout .vector) ; 
loopj  (c_.coelpointer->R0W+2) 

tempi. array[j+l] [i+l]  =  colout .vector [j+l] ; 

>  /♦  zeros  are  added  between  each  row  before  convolution  ♦/ 

printf ("\nConvovling  cols  of  dl„coef  with  g(n)...''); 
loopi  (dl_coefpointer->C0L)'( 

loopj (dl_coefpointer->R0W)  colin .vectcr[2*(j+l)]  = 
dl..coefpointer->array[j  +  l]  [i+l] ; 
loopj (colin . length) 

response. vector [j  +  l] =g_of_npointor->vector [j  +  l]  ; 
spconvlv( colin .vector , colin . length, response . vector, 
g_of„npointer->lcngth, 1 , colout .vector) ; 
loopj (dl,coefpointer*->R0W+2)  temp2.arrayrj+i] [i+l]  =  colout. vector  [j+l] ; 
}  /+  zeros  are  added  between  each  row  before  convolution  */ 

printf ("\nCo:ivovling  cols  of  d2_co0f  with  h(n)..."); 
loopi(d2_coefpointer->C0L){ 

loopj (d2_cocfpoiuter->R0W)  colir.. vector [2*( j+l)]  = 
d2_coofpointer->array[j+l] [i+l] ; 
loopj ( col in . length) 
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response. vector [j+l]=h_ol_npointer->vector[j+l] ; 
spconvlv( colin . vector , colin . length , response . vector , 
h_oj_npointer->length, l.colout. vector) , 
loop) (d2_coefpointer->R0W*2) 

tempS.arrayCj+l] [i+l]  =  colout. vector [j+1] ; 
y  /*  zeros  are  added  betveen  each  rov  before  convolution  */ 

printf("\nConvovling  cols  of  d3_coef  with  g(ii)...''); 
loopi (d3_coef pointer->COL) { 

loopj(d3„coefpointer->R0W)  colin. vector[2*(j+l)l  = 
d3_coefpointer->arrayCj+l] [i+1] ; 
loop j (colin. length) 

response. vector Cj+l]=g_of_npointer->vector[ j+1] : 
spconvlv ( colin . vector , colin . length , response . vector , 
g_of_npointer->length,l, colout .vector) ; 
loopj (d3_co6fpointer->R0W*2) 
temp4.array[j+l] [i+1]  =  colout. vector [ j+1] ; 

}  /*  zeros  are  added  between  each  row  before  convolution  */ 

/*  Add  teiap  arrays  for  col  convolutions  +/ 
loopij(temp.ROW,  temp. COL) 

temp. array[i+l]  [j+1]  =  tempi  .eirray  [i+1]  [j+1]  +  tenip2.array  [i+l]  [j  +  1]  ; 
loopij (tempi .ROV,  tempi. COL) 

tempi .array [i+l] [j+1]  =  temp3.array [i+1] [j+l]  + 

temp4. array [i+l]  [j+1] ; 

/*  sprintf (filename,  "temp"); 

rREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loo'll  (ds.^stout*^oiiiter"'?^R.Qy/2^ 

fprintf  (outfile,  "'/,f\n",  temp. array[i+l]  [128]) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprin+.f (filename,  "tempi"); 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi (dataoutpointer->R0W/2) 

fprintf (outfile,  "%f\n",  tempi . array [i+l] [128] ) ; 

CL03E_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile)  */ 

printf ("\nConvovling  rows  with  h(n) . . ."); 
loopi (dataoutpointer->ROW){ 

loopj (dataoutpointer->C0L/2)  rowin . vector[2+( j+1)]  =  temp. array [i+1]  [j  +  1] ; 
loopj (rowin . length)  response . vector [j  + 1] =h_of _npointer->vector  [ j  + 1 J  ; 
spconvlv (rowin , vector , rowin . length .response . vector , 

h_of _npointer->length , 1 , rowout . vector) ; 
loopj (dataoutpointer->ROW)  temp2. array [i+l] [j  +  l]  =  rowout, vector  [j  + 1] ; 

>  /+  zeros  are  added  between  e.+  ch  col  before  convolution  */ 

printf ("\nConvovling  rows  with  g(n). . ."); 
loopi {dataoutpointer->ROU){ 

loopj (dataoutpointer->C0L/2)  rowin. vector[2*(j  +  l)]  =  tempi . array  [i+l]  [j+l]  ; 
loopj (colin. length)  response .vector [j+1] =g_of_npointer->vector [j+1] ; 
8pconvlv(rowin . vector , rosin . length , response , vector , 

g_of _npointer->length, 1 .rowout . vector) ; 
loopj (dntaoutpointer->ROW)  temp3.array[i+l] [j+l]  =  rowout. vector[j+l] ; 

}  /♦  zeros  are  added  between  each  rov  before  convolution  */ 

/♦  sprintf (filename,  "temp2"); 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi (dataoutpointer->ROW) 

fprintf  (outfile,  "*/.f\n",  teffip2.array[i+l]  [128]) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf (filename,  "tempS"); 

CREATE_F1LE( outfile,  filename,  "The  Wavelet  Analyzer") 
loopi (dataoutpointer->ROW) 


fprintf  (outf ile,  "7,l\n",  temp3.array  [i+l]  [128]); 

CLOSE_FILE(i.  lilenane,  "The  Wavelet  Analyzer",  outlile)  ♦/ 

/«  Add  reap  arrays  to  get  resulting  dataout  */ 

loop! j (dataoutpointer‘->ROW ,dataoutpointer->COL) 

dataoatpointer->array[i+l]  [j+lj  =  temp2. array [i+1]  [j+1]  + 

temp3.array[i+l]  I'j+l] ; 

/*  sprintKf ilenane,  "dataout"); 

CREATE_FILE(outfile,  filenaae,  "The  Wavelet  Analyzer") 
loopi(dataoutpointer->ROW) 

Tprintl (outf ile,  "%f \n" ,  dataoutpoint#r->array[i+l] [12S] ) ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outlile)  */ 

/■Moopij (dataoutpo inter ->ROW,dataoutpointer->COL) 

printf  ("dataoutpointer->array  [Jid]  [%d]  ^Vtf  \n" ,  i+1 ,  j+1 . 
dataoutpointer->array[i+l] Cj+1] ) ;*/ 

/♦  reset  row  and  col  indeces.  +/ 

t!l_coefpointer->ROW  =  dataoutpointer->ROW; 
di_coefpointer->COL  =  dataoutpointer->COL; 
d2_coefpointer->R0W  =  dataoutpointer->ROW; 
d2_coefpointer->C0L  =  dataoatpointer“>COL; 
d3_coefpointer->RQW  =  dataoutpointer->HOW; 
d3_coefpointer->C0L  =  dataoutpointer~>COL; 

/♦  free  memory  */ 

free_natrix(temp. array,  1,  c„coefpointer->RQW*2,  1 ,c_coofpointer->COL) ; 
free_matrix(templ. array ,  1,  c_coofpointer->R0We2,  1 ,c_coelpointer->COL) ; 
free_natrixCcenp2. array ,  1,  c_coeipointer->Rg¥*2,  1 ,c_r,oefpointer~>COL) ; 
fr«e_natrix(temp3. array,  1,  c_coefpointer->RCWe2,  l,c_coefpoiuter->COL) ; 
free_Katrix(temp4. array ,  1,  c_coefpointer->R0W*2,  l,c_coelpointer->COL); 
fre6_vector(rowin. vector,  1,  4*dataoutpointer->C0L) ; 
f ree_vector (roBout . vector ,  1 ,  8*dataoutpointer->C0L) ; 
free_vector(colin. vector,  1,  4*dataoutpointer->C0L) ; 
free_voctor(colout .vector ,  1,  8+dataoutpointer->C0L) ; 

} 


B.2.8  Listing  of  SPCON  VL K.  C 

/***  WAVELET  SPACIAL  COHVOLUTIOH  SUBROUTIHE  ■»♦/ 

/*  DATE:  26  July  91 
VERSION:  1.0 
NAME:  spconvlv.c 

DESCRIPTION:  This  subroutine  will  do  a  convolution  of  two  time 
signals  in  the  time. domain  by  means  of  a  shif t-inultiply-s’im  method. 

This  program  intended  use  is  to  replace  the  convlvO  subroutine 
now  being  used  in  the  wavelet  convolve. c  and  reconvolve. c  portions 
of  the  wave2  program. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRirrEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED;  <stdio.h>",  "jsmacros.h" 

CALLING  PROGRAMS :  decompose. c 

PROGRAMS  CALLED:  nrutii.c 

AUl'HOR:  Steve  Smiley  and  J.  Stewart  Laing 
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HISTORY;  Initial  Version. 


/^t*^^^*^^*■^^**^^^^^*’^^^^*^^^^**’^*^^*^^^^^’^^^■^i^^^M**^****^^*^***‘********^^^^*^^*%:H^*^^*^^■4*^^**’^/ 


/♦  DECLARATIOH  SECTIOK  */ 


♦include  <stdio.h> 
♦include  "jsinacros  .h" 

float  ♦vectorO; 
void  free_vector() ; 
void  free_voctor() ; 

/**«#***4i>4^«***4i*%^^<iV***/ 

/♦  MAIN  PROGRAM  BODY  ♦/ 


void  spconvlv  (input,  input^length,  filter,  filter_len'^th  , dumby , output ) 
float  *input,  *output,  '♦filter; 
int  input_l»ngth,  f ilter_length,  dumby; 

/*  declare  variables  ♦/ 

int  i ,  j ; 

float  etemp,  *temp2; 

/  ♦♦♦♦*♦***•♦*•**♦♦♦'♦»/ 

/♦  allocate  moBory  ♦/ 

/♦♦♦♦♦'♦♦*'♦*♦♦♦♦♦♦«**♦/ 

CREATE_FL0AT_VECTOR(temp, 1 ,2*input .length) ; 
loopli(2*input_length)  tompti]  *  0.0; 

CREATE_FL0AT_VECT0R(toiiip2,  l,2*input_length) ; 
loopli(2’^inpttt_length)  teinp2ti]  =  0.0; 

/««*««*«*  **e**e*«*«*»**»**««.«**ee«/ 

/♦  diagnostic  print  statements  ♦/ 

/^M^1t9***’¥**^tHf*^***’¥******’^^***1f*f 

/♦  printf("\n  filter  length  is  */.d" ,  f ilter.length)  ; 
printf("\n  input  length  is  7,d",  input.langth) ;  ♦/ 
loopli(2*input_length) 
output [i]  =  0.0: 


/♦  load  first  level  coefficients  ♦/ 

♦>«****/ 

loopl i ( input _length/2){ 

tempCi  +  filter.length  -1]  =  inputCi]; 

/eprintfC'Xn  i=  7.d,  terapCi  +  f ilter.length/?] 

=  7,f",  i,  tempCi  +  filter_length/2] ) ;  */ 

} 

/♦  fill  in  both  ends  of  vector  with  flip  of  iuage  *J 

/<•♦♦  *4.  ^  « 11  '♦*'♦'♦**«#»«*♦"♦*««*«•••*  •«**«****/ 

loopli(f ilter.length  -l){ 

tempCfilter.length  -  i]  =  tempCf ilter.length  +  1) ; 
tempCf ilter.length  -1  +  input_length/2  +  i]  = 
temp  [filter  ..length  -1  +  input_length/2  -  i)  ; 


/•  convolution  of  signal  ♦/ 

/^m*******^i^**********‘^**’i‘4.*^*****/ 

loopli(input_length/2  +  filter_length  -!)■[ 
loopl j (f ilter_length) 
temp2Ci]  +=  tempCi+j-1] ♦filter Cj] ; 

} 

/♦♦♦♦+♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦***♦♦*♦♦♦♦♦*♦♦♦♦♦♦/ 

/*  load  proper  convolution  coefficients  */ 

/^m*if**m***tr*^***r>i*t¥****************4:************/ 

loop 1 i ( input_l ength/2 ) 

output [i]  =  temp2Cfilter_length/2  +  i] ; 

lree_vector(teinp,l ,2+input_length) ; 
free_vector(teiap2, 1 ,2*input_length) ; 

/*  printf("\n  i  =  */.d,output=y,f",i,  outputCiD);  ♦/ 

} 

B.2.9  Listing  of  NRUTIL.C  (See  Appendix  P.2)  [13] 
B.2.10  Listing  of  JSMACROS.H  (See  Appendix  F. 2) 

B.2.11  Listing  of  STEWMATH.H  (See  Appendix  F.2) 
B.2.12  Listing  of  MAKEFILE 

#  Makefile  routine  for  the  wave2  program  by  Laing  and  Smiley. 
DEFLAGS  =  -g 

OBJS  =  main-wave. o  loadimage.o  filters.o  convolve. o  spconvlv,o\ 
decompose. o  reconstruct . o  reconvolve. o  nrutil.o 

spwave2:  $(OBJS) 

(techo  "linking  ..." 

cc  $(0BJS)  -o  wave2  l(DEFLAGS)  -Im 

main-wave . o :  main-wave . c 
cc  -c  $(DEFLAGS)  main-wave. c 

loadimage.o:  loadimage.c 
cc  -c  $(DEFLAGSl  loadimage.c 

filters.o;  filters. c 
cc  -c  $ (DEFLAGS)  f liters. c 

spconvlv.o:  spconvlv.c 
cc  -c  $(DEFLAGS)  spconvlv.c 

convolve.©:  convolve.© 
cc  -c  $(DEFLAGS)  convolve.© 

reconvolve. o;  reconvolve. c 
cc  -c  $(DEFLAGS)  reconvolve. c 

decompose,©:  decompose.© 
cc  -c  $(DEFLAGS)  decompose.© 

resonstruct . o ;  reconstruct.© 
cc  -c  $(DEFLAGS)  reconstruct . c 

nrutil.O;  nrutil.c 

cc  -c  $(DEFLAGS)  nrutil.c 
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B.3 


1. 

2. 

3. 

4. 

5. 


6. 

7. 

8. 


9. 

10. 


11. 


12. 


ID  System  Description 

The  following  is  a  list  of  functions  which  comprise  the  wavel  program, 
raain.wavel.c  -  The  main  driver  program  for  wave. 

loads ignal.c  -  A  routine  to  load  the  input  signal  from  an  ascii  data  file, 
decomposel  .c  '  A  routine  that  controls  the  decomposition, 
reconstruct!  .c  -  A  routine  that  controls  the  reconstruction. 

filters .  c  -  A  routine  that  provides  the  coefficient  values  of  the  h{n)  and  g{n)  response 
functions  (See  Appendix  B.2  for  listing). 

convolve!. c  -  A  routine  that  controls  the  convolutions  for  decomposition. 

reconvolvel  .c  -  A  routine  that  controls  the  convolutions  for  reconstruction. 

spconvlv.c  -  h  routine  that  performs  the  spatial  convolutions  (See  Appendix  B.2  for 
listing). 

makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 

j  smacros  ,h  -  An  include  file  that  contains  macros  we  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F.2  for  listing). 

stewmath.h  -  An  include  file  containing  some  math  routines  specific  to  our  program. 
It  must  be  present  in  the  directory  where  complilatnai  takes  place  (Sec  Appendix  F.2 
for  listing). 

nrutil.c  -  Source  code  that  contains  utility  macros  for  dynamic  memory  allocation 
(See  Appendix  F.2  fcr  listing). 


Typing  “make”  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  aj)propriate  object  code  and  an  executable  file  called  loavel  that  may  be 
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executed  by  typing  “tuavel”  at  the  command  prompt. 


The  intended  input  to  the  program  is  a  Id  signal  in  raw  ascii  format  in  which  each 
sample  of  the  sign  ’s  stored  in  a  file,  one  number  per  line.  For  example,  a  signal  that  is 
512  samples  will  consist  of  512  lines  each  with  one  decimal  integer  number  representing  the 
value  of  that  sample.  The  output  of  the  program  are  ascii  files  representing  the  scale  and 
detail  wavelet  coefficients  in  floating  point  format.  For  an  in  depth  explanation  of  the  these 
coefficients  and  the  algorithm,  see  the  author’s  theses.  The  algorithm  implemented  in  this 
program  is  taken  from  a  paper  by  Stephan  Mallat.  The  paper  is  referenced  in  the  .'uthors 
theses.  Be  aware  that  we  found  some  printing  mistakes  in  the  paper  which  are  addressed  in 
our  theses.  The  program  was  developed  on  Sun  sparcstation  2’s  But,  it  should  compile  on 
any  system  with  an  ansi  standard  C  compiler.  To  compile  the  program,  type  make  at  the 
command  prompt  with  the  default  directory  set  to  the  current  directory.  Object  files  will 
then  be  created  and  linked  into  an  executable  file  called  wavel.  Then  to  run  the  program, 
type  wavel  at  the  command  prompt.  A  menu  should  appear  first  with  four  choices.  If  not 
done  at  the  command  line  entry  into  the  program,  a  file  must  be  loaded  from  the  current 
directory  before  either  decomposition  or  reconstruction  can  be  executed.  Once  a  file  is 
loaded  the  Decomposition  can  be  selected.  Then  the  Reconstruction  ran  be  selected.  Tlie 
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not  necessary  to  run  the  Decomposition  during  the  same  session  as  the  Rfxonstruction  as 
long  as  the  Decompostion  was  run  in  a  prior  session  and  the  files  still  reside  in  the  current 
directory.  An  alternate  v/ay  to  start  the  program  is  to  type  wavel  followed  by  the  name  of 
the  input  file  and  its  size.  The  size  of  the  input  file  must  be  a  power  of  two.  At  this  time 
the  largest  file  used  is  a  512  sampled  signal.  It  is  possible  to  specify  the  path  to  an  i.Mput 
file  that  is  not  in  the  current  directory  either  relative  to  the  current  directory  or  absolutely 
from  the  root.  However,  if  this  is  done,  the  output  files  will  be  sent  to  that  same  directory. 
To  review  the  usage  of  wavel  is 


command  prompt:  wavel  [infilename]  [size] 


The  infilenaiiie  and  size  are  optional  but  if  the  infilenaine  is  given  its  size  along  one 
dimension  of  the  power  of  two  sampled  signal  must  be  given  as  well. 

Also,  only  one  file  may  be  input  in  any  one  session.  This  fact  is  not  obvious  from  the 
program  menu,  so  be  aware.  If  you  try  to  select  the  Load  signal  option  from  the  main  menu 
after  you  have  already  loaded  a  file,  the  result  has  not  been  fully  characterized.  In  other 
words,  we  haven't  tried  to  figure  out  what  would  happen.  This  menu  option  is  provided  as 
an  alternative  to  specifying  the  file  on  the  command  line. 

The  filters  available  are  presently  limited  to  the  some  of  the  Daubechies  wavelets  and 
the  Cubic  Spline  wavelet.  But  it  is  a  simple  process  to  add  new  filters  to  the  filters. c  program 
in  ihe  same  fasion  as  those  already  included.  To  generate  the  H  and  G  filters,  see  our  theses 
for  referencjs. 


B.4  iD  Muitiresolution  Wavelet  Analysis  Software 
B.4.1  Listing  of  MA IN-  WA  VEl . C 

/***  WAVELET  ANALi'ZER  MAIN  PROGRAM  DRIVER  **/ 

/Hi^,HijtLitiJti***1f*****************’*-^-*n‘**’¥*****’¥*******************4‘**4**i****-******/ 

/*  DATE:  09  April  91,  18  June  91,  16  August  91 
VERSION:  3.0 
NAME:  inain-wav>.l  .c 

DESCRIPTIOK :  This  program  performs  a  multiresolution  wavelet  euialisys 
of  an  input  signal  with  a  wavelet  from  its  internal  library  chosen 
interactively  by  the  user.  It  bandies  the  menu  interface  with  the 
user  and  drives  the  subroutines  that  take  input,  analyze,  produce 
output.  The  the  wavelet  deconposition  algorithm  is  a  pyr^unid  algorithm 
proposed  by  Stephan  Mallat  in  A  Theory  for  Muitiresolution  Signal 
Decomposition:  ‘Ihe  Wavelet  Representation  published  in  IEEE  Trans, 
on  Pattern  Anal,  and  Machine  Intel.  July  89.  The  algorithm  uses  a  pair 
of  mirror  filters  derived  from  the  scaling  function,  phiCx).  The  user 
may  enter  the  intended  input  signal  file  from  the  command  line  following 
the  calling  command  ’wavel’  or  the  user  may  wait  to  be  prompted  for 
the  input  file  name  zmd  size  after  starting  the  program  with  the  same 
command . 

FILES  READ:  NONE  (A  subroutine  reads  the  input  files.) 

FIl.ES  WRITTEN:  NONE  (Subroutines  write  out  the  saved  data  in  files.) 
HEADERS  USED:  <stdio.h>,  "jsmacros .h" ,  "stewmath.h" 

CALLING  PROGRAMS :  NONE 

PROGRAMS  CALLED:  signalload. c,  reconstructl.c,  decomposel.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Initial  Version;  adapted  from  phivl.c  and  haarvl.c 
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Version  2.0  was  a  rewrite  to  cheoige  the  basic  algorithm  from  the  using 
inner  products  to  using  Che  Hallat  algorlthni  referenced  above. 

Version  3.0  adapted  the  two  dimensional  progrzua  for  one 
dimensional  signals. 

*/ 

/4  44<X4«44«44*444«4<44<4i**4*444444444>4<4*4*4i4v*4<*44«44i4*<)<44444't>4444<44<4<44"t<4>44<44';.'4</ 

/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

/♦  DECLARATION  SECTION  ♦/ 

/44*>)<444i*«*444<44>44<4’t>4e44<t4/ 

#include  <stdio.h> 

#include  "jsmacros.h" 

#include  "stewmath.h" 

int_vector  loadsignalO ; 
void  reconstruct  0 ; 

void  decomposeO; 

/4444>444444>44>t>44444444<4*/ 

/*  MAIN  PROGRAM  BODY  ♦/ 

/*+♦♦♦♦ 4 4 ♦♦♦ ***♦**♦*/ 

void  main(argc,  argv) 
int  argc ; 
char  *urgv [] ; 

{ 

/ 4444 444 44 44 444444 4 444 4% 4/ 

/♦  initialize  variables  *J 

/4444444v44444444444444< . / 

int  selection; 

int.vactor  signal,  *signalpointer  =  Asignal; 
char  f ilename [64] ; 

/4 44 444 444 44 4 44444 4 44 444 4 444444 44444 44/ 

/*  load  image  to  be  analyzed  4/ 

/4 44444444444 444 44 444 44 4444444444444 44/ 

if (argc  !=  3  Ak  argc  !=  1){ 

printf ("Usage:  wavel  <filename>  <#  of  Sajnples>\n‘') ; 
exit(O) ; 

} 

if  (argc  ==  3)-C 

signal  =  loads ignaK filename,  argc,  argv); 

/♦printf ("returned  from  loadimage");  f flush(stdout) : */ 

> 

do  { 


/444444444444444444444444444444444444/ 

/*  display  menu  ♦/ 

/444444444444444444444 444444 444444444/ 


printf ("\n\n  MAIN  HENU\n\n"); 

printf ("  1  =  Load  a  now  signal  from  disk.\n"); 

printf ("  2  =  Perform  Wavelet  Decomposition, \n") ; 

printf ("  3  =  Perform  Wavelet  Reconstruction. \n") ; 

printf ("  4  =  Exit  Program. \n\n") ; 

printf ("  Enter  an  integer  (1-4):"); 

scamfC’/.d",  Aselection) ; 


if  (selection  ==;  4)  break;  /♦  Quit  program  ♦/ 

argc  =  1; 

if  (selection  ==  1)  signal  =  loads ignal( filename,  argc,  axgv); 
else  if  (selection  ==  2)  decompose(signalpointer,  filename); 
else  if  (selection  ==  3)  reconstruct(signalpointer. 
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lilename) ; 
else  { 

printfC  \n\n  Just  enter  an  integer  from  1  to  4  and"); 
printf ("press  return.  \n") ; 

> 

}  uliile  (selection  !=  4); 

/♦  THE  END  */ 

> 

B.4.2  Listing  of  LOADSICNAL.C 

/ 41  !*c itc « ^  i|c ;)< <ti  41  Iti ^  4c « « 1^  ^ 4: %  itt  411),  4,  ^ 4c i|c Di « « d « « * « * ^ 4, 4i 4, 4, ^ 4,  ^ ,4c 4, A 4, 4, 4, 4, y 

/***  WAVELET  ANALY2Ea  LOADIMAGE  ROUTINE  ♦+/ 

/**4c4-4  +  4'4c4'4c**++44'4'*  +  4‘  +  +  +  *4c*4c4>4c4"4c44c4<4c4c44'  +  41c4c4‘*+*+**4>4'4‘4=4'4‘4c4>4i4>4<4  4<4t*4t4t4«4c4>4c4i4<4c4c*/ 
/+  +  +++  +  +  +  +  +  *t  +  4‘  +  4‘*4‘4i4>*4  4<4c44i4c**4c»*4-4‘4c4c44c4‘*4c44<44+4>4'4>4>4<4>4t4'4'4!'»4'4>'<4'4t*4i4t4>4<4c4>4<4i4>4"4<4</ 

/*  DATE;  10  April  91,  16  August  91 
VERSION:  2,0 
NAME;  loads ignat.c 

DESCRIPTION:  This  routine  loads  an  signal  into  ^Ln  ■'■•ector  whose  name  is 
specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a 
subroutine  for  the  wavel  program. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  NONE 

HEADERS  USED:  <stdio.h>,  <stdlib.h>,  "jsmacros .h" 

CALLING  PROGRAhS:  main-way el . c 

PROGRAMS  CALLED:  nrutil.c 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Version  1.1  was  changed  to  accept  square  matrices 
only. 

Version  2.0  changed  the  two  dimensional  program  to 
accept  only  one  dimensional  signals .  The  new 

executable  if  called  wavel  vs  wave2  for  the  old 
one, 

*/ 

/♦♦4>4>*4i  +  4>  +  n4‘4'*4‘4i4'4'it>4**4.  *4‘4!4‘*4>*4c*4cJc4cA*4*4c4c*4*4c4c44c4c4c4c4c4cv*4<4c4'*4<4<4t4c*4c+4c4>*4c4c4c4c4.4c4'  / 
/♦  4i  ♦4■4^4^  4"  *4i4i4<  4  **  *414,4,41 4c  4i*  4,41  ****♦■+♦*  *4  ♦4>*4c4'4'4c4‘4'*4c44"4c*4i4i4c4c  4c  4>4c4c*  4c  4c4i  + 4c  ♦  414c  4,4,41 4 +♦/ 

/**************4.*****v**4‘*/ 

/*  DECLARATION  SECTION  ♦/ 

/*♦**♦♦*♦  ***********  +  **v'4c*/ 

#include  <stdio.h> 

#include  "jsmacros.h" 

int  *ivector(); 

void  free_ivector() ; 

/♦  +  *  +  4:  +  *  +  ***************4,*/ 

/♦  FUNCTION  BODY  */ 

/***********************/ 

int_vector  1'  dsignaK infilename,  argc,  argv) 
char  *inf ilename[64] ; 
int  argc ; 
char  *argv  [] ; 

/*******-.f  *♦+¥***♦***♦*. t**/ 

/r  initialize  variables  *■/ 

/**♦♦***♦♦♦♦*♦*♦♦*♦**+*♦+/ 

iut  i , j  ; 

FILE  ‘infije; 
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int_vector  signal; 

/+  create  vector  to  hold  the  incoming  signal  */ 

/44  +  4>l‘44t>l'4>l<4444<4<4444<(<4i4i44<44i*i4i«4<44t4<*4>t>*4"44<4<4>4<4‘/ 

ii(argc  ==  1){ 

printf("\n\n  Input  filename  of  singal  to  be  analyzed:"); 
scemf("7,s",  inf  ileneone) ; 

printf("\n\n  Input  the  number  of  Samples  in  the  signal"); 
printf("\n  data  file.  (The  number  must  a  power  of  2):"); 
scanf(“7,d",  fisignal.  length) ; 

else  { 

sprintf (inf ilename,  "7,s",  argv[l]); 
sscanf  (argv  [2]  ,  "%d",  Its  ignal.  length)  ; 

signal,  vector  =  ivectord,  signal. length)  ; 

/♦  load  signal  to  be  ainalyzed  ■»/ 

OPEN_FILE  (infile,  infilename,  "The  wavelet  analyzer"); 
loopli(signal . length) 

f  scanf  (  inf  ile ,  "'/,d"  ,  ^signal .  vector  [i]  )  ; 

CLQSE_FILE  (i,  infilename,  "The  Wavelet  oUialyzer",  infile) 
printf("\n  **  The  signal.  %s  has  been  loaded  for  processing,  ♦♦\n\n\n" , 
infilename) ; 
return  signal; 


Listing  oj  DECOMPOSEl.C 

/  4  4444*44. 444#4*4>4*«<^**e4<444<«4***4<«i*4>**e***4i**e«***4ce4«4>***4>*«4>4**4*4<4*/ 

/*44444444444444 444 44444444444 4444 444444444444444444444444444444444 444444444/ 

WAVELET  DECOMPOSITION  SUBROUTINE  44/ 

/44444444444444 4444 44444444444 444 44444 44 44444444 444444444444 4444 444 44444 4 44 4/ 
/444  4  44-  4444444  4444  4444444  4444  4444444444444444444444444  44444444  44444444411  4  44/ 

/♦  DATE;  19  June  91,  16  August  91 
VERSION;  2.0 
NAME:  decomposel.c 

DESCRIPTION;  This  subroutine  is  intended  to  he  part  of  a  Wavelet 
analyzing  prograim  called  "wavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-wavel . c . 

Data  is  passed  by  reference  from  the  main  driver  module.  'Ihe  data  is 
in  ascii  format  arranged  in  a  vector  whose  dimension  is  a 
power  of  2 ,  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ;  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN;  Two  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  with  the  input  signal  filename 
and  end  with  an  extension  of  the  foim  ".nX"  where 
r.  is  an  integer  that  represents  the  level,  X  is  one 
of  the  letters  'c'  or  'd'  to  represent  phi 
or  psi  coefficients  respectively, 

HEADERS  USED-  <Btdio,h>.  "jsmacros.h" 

Calling  programs;  main-wavel.c 

PROGRAMS  CALLED:  convolvel.c,  f liters. c,  nrutil.c 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
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HISTORY:  3  litial  Version. 

Version  2.0  no  longer  uses  the  Fourier  domain  filtering.  How 
only  spactial  convolution  is  done.  Also,  this  version  was 
adapted  from  the  two  dimensional  version  1.0. 

*/ 

/tLif^t^c*^L^L:HHtti^***********i¥***************************^****1‘*********^*’t‘*  ******/ 
/if4L^i^,iL^^,^^it:**************’t^************’l‘*’¥^****’f****************^f*****‘*******/ 

/*  DECLARATION  SECT! ''H  */ 

#include  <stdio.h> 

#include  "jsmacros.h" 

void  convolve(' ; 

void  filtersO; 

float  *vector(); 

void  f ree_vector() ; 

ij  t  *ivector(): 

/*  MAIN  PROGRAM  BO.JY  */ 


void  decompose(signalp)ointer .  infilenane) 
int_vector  *signalpo inter; 
char  inf ilenameC] ; 

i 

/  «  »  «  *  «  *  #  t  >4' ^  It' « !)<  4:  If  %  *  I- * '«")"4r «  / 

/*  declare  variables  */ 

/  ♦♦♦♦♦♦ 


int 

f loat_vector 

float_vector 

f loat_vector 

lloat.vector 

float.vector 

float_vector 

float_veotor 

float_vector 

FILE 

char 

int_vector 


i,  j,  k,  maxlevel,  wavelet_type; 

h_oi_n,  h_of_ntiipo,  g_of_n,  g_of_nflipo,  phi,  phiflipo; 
phiflipc,  ♦phillipcpointer  =  ftphiflipc; 

♦h_of _npointer  =  ith_of_n,  *h_of_nflipopointer  =  &h_of_nflipo; 
♦g_of _npointer  =  ftg_of_n,  *g_of_nflipopo inter  =  ftg_of_nflipo; 
♦phipointer  =  ftphi,  *phiflipopointer  =  ftphiflipo; 
c_coef,  d_coef; 

•c_coefpointer=  Sc„cocf ,*d_coelpo inter-  &d_coef; 
temp,  ttemppo inter  =  fttemp; 

^outf ile ; 

filenaineC64]  ,  wave_code[64]  ; 
newsignal,  ♦newsigna^ pointer  =  inewsignal; 


/  «.  *  *  *  *  14  ^  If  1^  %  1^  14 1^  t  1 ^  f  t «  +  / 

/ ♦  allocate  memory  ♦/ 


temp. length  =  8ignalpointer->length; 

temp. vector  =  vectorCl,  temp. length) ; 

loopli (temp. length)  temp. vector [i]  =  0.0; 

c_coef . length  =  signalpointer->length; 

c_coef  .vector  =  vectord,  c_coef  .  length)  ; 

loopli (c_coef .length)  c_coef .vector [i]  =  0.0; 

d,_ccief  ,  length  =  signalpointer->length; 

d_coef . vector  =  vectorCl,  d_coef . length) ; 

loopli(d_coef . length)  d_coef . vectorCi]  =  0.0; 

newsignal . length  =  signalpointer->length; 

newsignal .  vector  =  ivectord,  newsignal  .length)  ; 

loopliCnewsijnal .length)  newsignal . vector [i]  =  0; 

h_of_n . vector  =  vectorCl ,signalpointer->length*2) ; 

loopli (6ignalpointer->length*2)  h_of_n . vector [i]  =  0.0; 

g_of_n. vector  =  vector (1 , signalpointer-.'length*2) ; 

loopliCsignalpointei ->length*2)  g_of_n. vector [i]  =  0.0; 

h_of_nflipo . vector  =  vectorCl ,signalpointer->length*2) ; 

loopli(signalpointer->lengtli+2)  h_of_nflipo. vector[i]  =  0.0; 

g_of_nf lipo . vector  =  vector ( 1 , signalpointer->length*2) ; 
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loopli(signalpointer->length*2)  g_of_iillipo, vector ti]  =  0.0; 
phi. vector  =  vector{ 1 ,2*signalpointer->length) ; 
loopli(sigiialpointer->length*2)  phi. vector  [i]  =  0.0; 
phiflipo. vector  =  vectord ,2*signalpointer->leagth) ; 
loopli(signalpointer->length*2)  phiilipo. vector [i]  =  0.0; 
phiflipc. vector  =  vector(l ,2*signalpointer->leagth) ; 
loopli(signalpointer->length*2)  phiflipc. vector [i]  =  0.0; 

/ 

/+  display  menu  i-/ 


printf ("\n\n 

DECOMPO-^ITIOK  MEKU\n\n"); 

printf (" 

1 

s: 

Piece-wise 

Constant .  (.N/A)\n") 

printf (" 

2 

= 

Piece-wise 

Linear.  (NA)\n") ; 

printf (" 

3 

= 

Daubechies 

»=-2  \n"); 

printf (" 

4 

= 

Daubechies 

H=3.\n"); 

printf (" 

5 

= 

Daubechies 

«=4.\n"); 

printf (" 

6 

= 

Daubechies 

K=5.\r"); 

printf (" 

7 

= 

Daubechies 

K=6.\n"); 

printf (" 

8 

= 

Daubechies 

H=7.\n"); 

printf (" 

9 

= 

Daubechies 

H=8.\n") ; 

printf (" 

10 

= 

Daubechies  N=9.\n"); 

printf ( " 

11 

= 

Daubechies  N=10.\ii"); 

printf (" 

12 

- 

Splines. \n") ; 

printf ( " 

13 

= 

Korlet.(N/A)\n"); 

printf ("\n  Enter  an  integer  1- 

■13;  "); 

scanf("*/,d'’ ,  ltwavclet_type) ; 

/■*■  error  handling  for  invalid  input  */ 


if  (wavelet_type  <  3  I  I  wavelet_type  >  13)  {. 

printf ("\nYou  have  chosen  an  Invalid  Wavelet  type  or"); 
printf ("\nthis  type  is  not  currently  available."); 

}  /f  end  if  ♦/ 
else  { 


/*  Set  wave_code  for  use  in  output  fileneunes.  ♦/ 

/f  f  f  f  f  f  f  f  f  f  f  f  f  f  f  *f  f  f  f  f  f  f  f  f  f  f  f  f  f  f  f  f  l^f  flf  :*f  / 

if  (wavelet_type  ==  3)  sprintf (wave_code,  "db2") ; 
if  (wavelet_type  ==  4)  sprint! (wave.code,  "db?")  ; 
if  (wavelet_type  ==  6)  sprintf (wave.code,  "db4") ; 
if  (wavelet„type  ==  6)  sprintf (uave_code.  "dbC")  ; 
if  (wavelet_type  ==  7)  sprintf (wave_code,  "db6"); 
if  (wavelet_type  ==  8)  sprints (wave_code ,  "db?"); 
if  (wavelet_type  ==  9)  sprintf (wave.coae,  "db8") ; 
if  (wavelet _type  ==  10)  sprintf (wave_code,  "db9"); 
if  (wavelet.type  ==  13)  sprintf (wave_cc/do,  "dbO’’); 
if  (wavelet.,type  ==  J.2)  sprintf (vavc_codo,  "opl"); 

/♦♦ffff+fffffffffffffifff+ftvf/ 

/♦  Generate  Phi  and  Filters  »/ 


filters  (wavelet _type,h„of.  npciintex: ,g„ci_.npoi.titer ,pliipyi7iter)  ; 
flipo(phipointer ,  phillipopointer) ; 

h_of _nf lipopointer  =  h_of ,  npo inter ; 
g_of  _nf  lipopoiiiter  -  g_of., npo  inter; 

loopl  i  (  s  ignalpoint  ar  ■->leng\,h) 

temppointor->vei  tor  [i]  =  (flota)signalpoii\rer->vi3Ctor  [.( j  ; 
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/♦  Call  convolution  routine  and  save  the  coeificient  vectors  for  */ 

/♦  each  level  of  analysis .  ♦/ 

naxlevp''  =  L0G2(signalpointer->length) ;  /♦  Calculate  the  highest  level  *f 
k=l: 

loopk (maxlevel) { 

if  (temp . length  >=  h_of_n. length ){  /♦  signal  has  to  be  bigger  than  filter  ♦/ 
printf ("XnPerforming  convolution  with  filters,  level"); 
printf("y.d.  .  k+1)  ; 

convolveCtemppointer ,  h_of_nflipopointer ,  g_of_nf lipopointer , 
c.coefpointer,  d_coefpointer) ; 

sprintf (filename,  "y.s.'/.d.c.y.s",  infilename,  k+1,  wave_code); 

CREATE_FILE(outf ile,  filenzune,  "The  Wavelet  Analyzer") 

loop! i(c_coef . length)  f printf  (outf  ile, “'/.f  \n" , c_coef  .  vector  [i] ) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile) 

sprintf  (filename,  "'/.s.y.d.d.y.s",  infilename,  k+1  ,wave_code)  ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopli(d_coef .length)fprintf (outf ile, "yf\n" ,d_coef . vector [i] ) ; 
CLOSE_FILE(i ,  filename,  "The  Wavelet  Analyzer",  outfile) 
temp. length  =  c_coef . length; 

loopli(temp. length)  temp. vector Ci]  =  c_coef . vector [i] ; 

}  **  end  if  ♦/ 

}  /+  end  loop  ♦/ 

)•  /*  end  else  */ 

/*  free  memory  */ 

free_vector(temp.vector ,  1,  temp. length) ; 
free_vector(c_coef  vector ,  1,  c.coef . length) ; 
free_vector(d_coef .vector ,  1,  d_coef . length) ; 
freo_vector (h_of _n . vector , 1 , signalpointer->length+2) ; 
free_vector(g_of_n. vector, 1 ,signalpointor->l«ngth*2) ; 
free_vector(phi .vector , 1 , signal pointer->length*2) ; 
free_vector(phiflipo .vector, 1 ,signalpointer->length+'2) ; 
free_vector(phiflipc . vector , 1 ,signalpointer->length*2) ; 

/♦  THE  END  ♦/ 

} 
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*  +  +  «<*  +***  +  **  +  * +  +  +  +  +  +  +  +  +  +  +  ++*+*  +  +  +  +  +  +  *«+  +  +++/ 

/***  WAVELET  RECONSTRUCTION  SUBROUTINE 

/♦*♦+♦♦♦♦♦+♦♦*♦*♦♦+*♦♦♦♦♦♦♦*♦****♦**♦***♦*♦***♦*♦**♦♦****♦***♦♦*.(>*♦♦♦♦♦♦*♦*♦/ 

/li***  +  *  +  ***  +  *****  +  +  +  + *♦♦*♦♦  +  ♦♦♦*♦♦  ♦•♦♦ti»  +  1t+***+****»****  +  *H'  +  +  +  ***  +  »»*++^***+*/ 

/♦  DATE;  2  July  91,  16  August  91 
VERSION:  3.0 
NAME:  reconstruct! . c 

DESCRIPTION;  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-wavel . c . 

It  controls  the  portion  of  the  program  that  reconstructs  a  previously 
decomposed  signal  using  Hallat’s  multiresolution  algorithm  referenced 
in  the  description  of  the  calling  program,  "main-wavel . c" . 

FILES  READ:  Four  coefficient  files  at  each  level  of  anal)'sis. 

The  file  names  begin  with  the  input  signal  filename 
and  end  with  an  extension  of  the  form  ".nX"  where 
n  is  an  integer  that  represents  the  level,  X  is  one  of 
the  letters  'c'  or  'd’  to  represent  phi  or  ps:  coef¬ 
ficients  respectively. 


FILES  HRITTEH:  One  file  with  the  extension  *',rec". 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS:  nain-wavel . c 

PROGRAMS  CALLED:  filters. c,  reconvolve l.c,  sjjconvlv.c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  is  adapted  to  use  the  spatial  correlation  eoid  not 
the  Fourier  convolution. 

Version  3.0  adapted  the  two  dimensional  program  to  handle  only 
1  dimensional  signals.  The  command  is  wavel  vs  wave2. 

•/ 

*♦♦*+*♦♦♦**♦♦♦•*♦*♦♦*/ 

/*  DECLARATION  SECTION  *! 

#iuclude  <stdio.h> 

#include  "jsmacros.h" 

void  filtersO; 
void  reconvolveO ; 

float  *vector(); 
void  free_vector() ; 

int  *iv6ctor(): 

void  lree_ivector() ; 

/♦♦*♦*♦♦♦♦*♦*♦♦♦♦*♦*♦♦♦♦/ 

h  MAIN  PROGRAM  BODY  *! 

void  reconstruct ( a ignalpoint er , inf ilename ) 
int_vector  ♦signalpointer; 
char  inf ilename  [] ; 

{ 

/*  declare  variables  ♦/ 

int  i,  j,  k,  1,  raailevel,  wavelet_type; 

float_vect'~r  h_of_n,  h_of..nflipo,  h_of_nflipc,  g_of_n; 

float_vector  g_of_nflipo,  g_oi_nflipc,  phi,  phiflipc; 

float _voctor  *h_of_npointor  =  4h_of_n,  ♦g_of_npointer  =  Ag_of_n; 

float _vector  *h._of_nf lipopointer  =  Ah_of_nflipo; 

float_vector  *g_of_nflipopointer  =  Ag_of_nflipo: 

float_vector  *h..of_nflipcpointer  =  Ah_of_nflipc; 

float  _vector  ’•‘g_of_nflipcpo  inter  =  Ag_of_nflipc.; 

float _vector  *phipoiiiter  =  Aphi,  •phiflipcpointer  =  Aphiflipc; 

float_vector  c_coef,  d_coef, 

float _vector  *c_coefpointer=  tc_coef ,+d_coefpointer=  ftd_coef ; 

float_vector  temp,  *temppointor  ==  Atemp; 

int_vector  net  .ignal,  ^newsignalpointer  =  Aneusignal; 

FILE  *outfile,  *infile; 

char  f  ileneune  [64]  ,  wave_code[64]  ; 

float  holder [64]; 

/ 

/*  allocate  memory  */ 

temp. length  =  sign3lpointer->length; 
temp. Vector  =  vectorCl,  temp . length) ; 
loopliCtemp. length)  temp.vector [i]  =  0.0; 
newsignal . length  =  signalpointer~>length; 
newsignal .  vector  =  ivectord,  newsignal.  length) ; 


loopliCneHEignal .length)  newsignal .vector [i]  =  0.0; 
c„coef .length  =  signalpointer->length; 
c_coel .vector  =  vector (1,  c_coel . length) ; 
loopli(c_f.oel .length)  c_coef .vector [i]  =  0.0; 
t1_coef -length  =  sj.gnalpointer->length; 
d_coef .vector  =  vector (1,  d^cooH . length) ; 
loopli(d_coef .length)  d_coef .vector [i]  =  0.0; 

h_of„n. vector  -  vector(l,Eignalpointer->length<‘2); 
loopli(signalpointer->l<mgthe2)  h_of_n. vector Ci]  =  0.0; 
g_of_n. vector  =  vector (l,eignalpointer->length<'2); 
loopl  i(signa.'lpointeT->length*2)  g_ol_n.vector  Ci]  =  0.0; 
phi. vector  =  vectord ,2esignalpointer->length): 
loopli(Eignalpointer->leitgth">2)  phi . vectorLi]  =  0.0; 
phiflipc . vector  =  vector (l,2’»8ignalpointer->length); 
locpli{signalpointer->lengthe2)  phiflipc. vector li]  =  0.0; 
h_of_nflipo. vector  =  vector (1 ,signalpointer->length*2) ; 
loopli(signalpointor->length*2)  h_of_nflipo. vector [i]  =  0.0 
g„of_nflipo. vector  =  vectorCl ,signalpointcr~>length*2) ; 
loopi i(signalpointer->length*2)  g..ol_iiflipo. vector [i)  =  0.0 
h_ol_nflipc. vector  -  vectorCl ,8ignalpointer->length*2) ; 
loopli(signalpointer->length’»2)  h_of_nf lipc. vector [i]  =  0.0 
g_of_nflipc. vector  =  vectorCl ,Eignalpointer->length*2) ; 
lv-’opii(si.gnalpointer->length'»2)  g_ol_nflipc. vector ti)  =  0,0 

/♦  display  menu  */ 


printf  ('An\n 

H! 

printf (" 

1 

printf (" 

2 

printf (" 

3 

printf (" 

4 

printf (" 

5 

printf (" 

6 

printf (" 

7 

printf (" 

8 

printf (" 

9 

printf (" 

10 

printf (" 

11 

printf (" 

^4.^  /  II 

12 
A  O 

Ahl  V  4  \  A  vv 

priiitfC  Enter 

RECOBSTBUCTIO*  HEMU\n\n") ; 

Piece-oise  Constant. (I/A)\n"); 
Piece-wise  Linear .  (II/A)\n") ; 
Daubechies  11=2.  \n"); 
Daubechies  1=3.  \n‘'); 

Daubt chits  B=4.\n'*); 
Daubechies  H=6.\n"): 
Daubechies  lf=6.\n"); 
Daubechies  |[=7.\n'‘); 
D.aubechies  K=8 ,  \n")  ; 
Daubechies  H=9.\n"); 
Daubechies  K=10.\n"); 

Splines .\n") ; 

V— -.A.  »»>• 

nvj.  ,  V"/  *  9 


scanl  ( '"/.d" ,  ftvavelet„type)  ; 

if (uav0l8t_type  <  1  it  wavelet_type  >  13  ){ 

print! ('AnYou  have  chosan  an  invalid  wavelet  or"); 
print! (‘An it  is  not  currently  available."); 

} 

else  { 


h  Set  value  of  wave_code  fc-r  input  filename  */ 


if  (wavelcr._type  ==  3)  spi  intf  (wave_code,  "db2")  ; 
if  (wavelet.typfi  ==  4)  sprintf (wave_code,  "db3"); 
if  (wavelet_type  ==  5)  sprintf (wave_code,  "db4"); 
if  (wavolet_type  ==  6)  sprintf (wave_code,  "db5"); 
if  (wavelet_type  -=  7)  sprintf (wave^code,  "db6") ; 
it  (wavelct.,type  ==  8)  sprintf (wave^code,  "db7"); 
if  (Kavelet_type  9)  sprintf (wave_codo,  "db8"); 
if  (wavelet_type  =-  10)  sprintf (wave_code,  "db9"); 
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if  (wavelet.type  ==  11)  sprintf (wave_code.  "dbO"); 
if  (wavelet_type  ==  12)  sprintf (wave_co<le,  "spl"); 

/*  Generate  Phi  zmd  Filters  •/ 

filters (wavelet _type,h_of_npointer,g_of_npointer,phipointer) ; 


/  4<  ^  1 t  *<«<*  ^^  **<«>*  4>  *>!■  >t<  *  >t<  *  f  *>•<  4>  4>  « 1 4> « -9>  4>  4>  «<»  / 

/♦  flip  the  filters  */ 


loopl j (h_of _npointer->length) 

holder [h_of_npointer->length  +1  -j]-'  h_of_npointer->vector [j] ; 
loopl j (h_of_npointer->length) 

h_of_npointor->vector[jT  =  holder[j]; 
loopl j (g_of _npointer->length) 

holdei [g_of_npoin.ter->length  +1  -j]=  g_of_npointer->vector[j] ; 
loopl j (g_of _npointer->length) 

g_of _npointer->vector [j]  =  holder[j]; 

h_of _nf lipcpointer=  h_of_npo inter ; 
g_of _nf lipcpointer=  g_of „npointer ; 

/*  Call  reconvolntion  routine  to  reconstruct  from  coursest  phi  */ 

/♦  coefficients  and  all  of  the  psi  coefficients.  */ 

maxlevel  =  L0G2(signalpointer->length) ; /^Calculate  the  highest  level*/ 
temp. length  =  1; 

do  -C  /♦  make  sure  signal  is  bigger  than  filter  */ 

temp. length  *-2; 

— maxlevel; 

}  while  (temp. length  <  h_of_n. length/2) ; 

c_coef . length  =  temp. length; 
d_coef . length  =  temp. length; 

1=1; 

f or (k=maxlevel ; k>0 ; — k) { 
ii(l  ==  1){ 

sprintf  (filename,  "'/.s  .*/.d.  c.*4s",  infilename.  k,wave_code)  ; 
OPEK_FILE(inf ile,  filename,  "The  Wavelet  Analyzer") 
loopl i(c_coef .length) 

f  scanf  (inf  ile  ,  "V.fXn",  tc_coef  .vector [i]  )  ; 

CLOSE  FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

1  =  0; 

}■  /*  end  if  *f 
else  { 

c„coef . length  =  temp. length; 

loopl i(c_coef .length)  c_coef .vector [i]  =  temp. vectorCi] ; 

}  /*  end  else  •/ 

sprintf  (filename,  "‘/.s  .7,d.d,%s".  infilename,  k,wave_code)  ; 
OPEN_FILE(inf ile ,  filename,  "The  Wavelet  Analyzer") 
loopli(d_coef . length) 

f  scanf  (infile ,  "7,f\n",  fcd_coef  .vectorCi) ) : 

CLQSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

printf ("\nPerforming  reconvolution  with  filters,  level  7.d...",  k) ; 
reconvolve(temppo inter ,  h_of _nflipcpointor ,  g_of„nflipcpo inter, 
c_coefpo inter ,  d_coefpointer) ; 

if (wavelet_type  ==  12) 
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loopli (temp. length)  temp. vector [i]  *=  2; 

spr intf  (f  ilenaue ,  *'%s  .  .  c .  y.s .  rec" ,  inf  ilename  ,k- 1 , wave_code)  ; 

CREATE_FILE{outf ilc,  filename,  "The  Wavelet  Analyzer") 
loopliCtemp. length) 

fprintf  (outf ile,  "’/,f\n",  temp. vector Ci] )  ; 

CLOSE_FILE(i ,  filename,  "The  Wavelet  Analyzer",  outf ile) 

>  /*  end  loop  ♦/ 

}  /•  end  else  */ 

/ *  free  memory  ♦/ 

f ree_vector (temp. vector ,  i,  temp.length) ; 
free_ivoctor(newsignal. vector,  1,  rewsignal .length) ; 
froe_vector(c_coef .vector ,  l,  c_coef .length) ; 
lree_vector(d_coef .vector,  1,  d_coef .length) ; 

/♦  THE  END  ♦/ 


B.^.5  Listing  of  FILTERS. C  (See  Appendi.x  B.2) 
B.4.6  Listing  of  CONVOLVEl.C 


/+**  WAVELET  COKVOLUTIOM  SUBROUTIHE  ♦♦/ 

/♦♦♦ t +♦♦♦♦*♦ V*+*V*# *♦*♦♦♦****♦****♦*♦*♦♦*♦*♦♦♦♦♦♦♦♦**♦♦♦♦♦♦♦♦*♦♦♦ ♦It* *♦♦♦♦***/ 


/♦  DATE;  19  June  91,  16  August  91 
VERSION ;  2.0 


NAME;  convolve l.c 

DESCRIPTION;  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "uavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-wavel . c" . 

Data  is  passed  by  reference  from  the  decomposition  subroutine.  Data  is 
in  ascii  format  arranged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  progreunming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ;  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN :  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED;  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS;  decomposel.c 
PROGRAMS  CALLED:  spconvlv.c,  nrutil.c 
AUTHOR;  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY;  Initial  Version. 

Version  2.0  was  adapted  from  the  two  dimensional  version  1.0 
to  handle  one  dimensional  signals.  It  does  not  use  the  Forier 
space  filtering  indicated  above. 

♦/ 

/♦♦♦♦♦♦♦♦♦♦♦♦♦  ♦♦♦♦♦:^*^%«4c**^*e»4«*^^t**********«*»*********»*************>(<**/ 

/****♦♦♦+**♦♦*♦♦♦♦♦♦♦♦♦♦♦♦/ 

/♦  DECLARATION  SECTION  •/ 


#include  <stdio.h> 
#includo  " j  smacroE . h" 

float  #vector(); 
void  free_vector() ; 


void 


spconvlvO ; 

/^^i^L^i^,t,m****************/ 

/*  HAIM  PROGRAM  BODY  */ 

/  V  *  41  *  « *  4r  4i  *  4< «  %  ^  f  %  4' *  / 

void  convolve (datainpointer,  h_of_npo inter  ,g_of_npointer ,  c_coef pointer , 
d_coef pointer) 

Yloat_vector  ♦datainpo inter ; 

Yloat_vector  ♦h_of _npo inter ,  *g_of_npointer; 
iloat_vector  ♦c_coofpoint«r , *d_coofpointer; 

i 

/*  declare  variables  */ 

/ +♦+ ♦*+♦♦♦♦♦  ♦♦♦<"♦**♦  ♦♦*♦♦/ 

int  i ,  j ; 

float,  vector"  vectin ,  vectout ,  response; 
float. vector  temp; 

FILE  *outfile; 
char  f ilename [64] ; 

/*  allocate  memory  */ 

/+++♦+♦+♦++♦♦+*♦♦♦♦%♦/ 

temp. vector  =  vector (1,  datainpo inter->length) ; 
loopli(datainpointer->length)  temp. vector [i]  =  0.0; 
vectin. vector  =  vector ( 1, 2*datainpointer->length) ; 
loopli(2*datainpointar->length)  vectin. vectorCi]  =  0.0; 
vectout .vector  =  vector(l ,4*datainpointer->length); 
loopi i (datainpointer~^length*4)  vectout .vectorCi]  =  0.0; 
response. vector  =  vector( 1 ,2*datainpointer->length) ; 
loopli(datainpointer->length*2)  response. vectorCi]  =  0.0; 
vectin. length  =  2vdatainpointer->length; 

/*  perform  convolution  */ 

printf ("\nConvovling  signal  with  h(-n)..."); 
looplj (datainpointer->length*2) 

response. vectorCj]  =  h_of _npointer->vector[j] ; 
looplj  (datainpoir.ter->length) 

vectin. vector [j]  =  datainpointer->vector Cj] ; 
spconvlv( vectin. vector .vectin . length, response .vector , 
h_of _npointer->length, 1 .vectout .vector) ; 
looplj (datainpointer->length/2) 

c_coefpointer->vector [j]  =  vectout . vector [2* j] ; 

/*  downsample  by  selectiny  even  cols  */ 

printf ("\nConvovling  signal  with  g(-n)..."); 
looplj (datainpointer->length*2) 

response. vectorCj]  -  g_of _npointer->vector [j] ; 
looplj (datainpointer->length) 

vectin. vectorCj]  =  datainpointer->vector Cj] ; 
spconvlv(vectin. vector, vectin. lengtli , response. vector , 
g_of_npointer->length, 1 .vectout .vector) ; 
looplj (datainpointer->length/2) 

d_coefpointer->vector [j]  =  vectout. vectorC2+j] ; 

/*  reset  signal  indeces.  */ 

c_coef pointer->length  =  datainpointer->length/2; 
d_coefpoiiiter->length  =  datainpo inter->length/2; 

/♦  free  memory  ♦/ 


free_vector  (temp. vector,  1,  dated iipointer->leiigth)  ; 
f ree_vector  ( vect in . vector , 1 , 2*dataiiipointer->length) ; 
free_vector  (vectout . vector, 1 ,4’»datainpointer->length) ; 
free_vector  (response .vector , 1 ,2+datainpointer->length) ; 

/*  THE  ESD  */ 

} 

B.4.7  Listing  of  RECONVOLVEl . C 


/***  WAVELET  RECONVOLUTION  SUBROUTIBE  ♦*/ 

/****^t***********<t‘****’^**'¥**************’tf*************t********’^***1‘*<l‘**’¥***/ 

/*  DATE:  2  July  91.  16  August  91 
VERSION:  2.0 
NAME:  rcconvolvel . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "uavel".  The  algorithm  used  is  referenced  in 
the  description  of  the  main  driver  module  called  “main-wave 1 . c‘‘ . 

Data  is  passed  by  reference  from  the  reconstruction  subroutine.  Data  is 
in  ascii  format  arranged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numeric 
Recipes  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ;  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTiiH:  NUNK  (Fassed  by  reference  bacX  to  the  caller. 

HEADERS  USED:  <stdio.h>,  “jsmacros.h" 

CALLING  PROGRAMS:  reconstruct! . c 
PROGRAMS  CALLED:  spconvlv.c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  adapted  from  1.0  allows  only  one  diaiensional 
signals  to  be  decomposed.  It  does  not  use  Fourier  filtering. 

*/ 

/ilinim***’>‘**’¥********  *******  **’^**-*-*^*****n‘n‘iHf*1f^Jtf**^i*1fi^^:^i*m^f*^L^^i^:ti;^*t****^*****/ 
/***■*^*^^*t***’^***^^***’>'’t‘it>*^•*^^**<t*■**t**^’■^^l‘^^*^‘*^^**^**■^^*}^*t****^^*^^*****^^*^‘*^‘**/ 

/♦>fT*  +  ******»*1i*1<****»«i*%*/ 

/*  ntTZ-T  AHAT’TnM  CT7r'TTnM  a./ 

#include  <stdio.h> 

#include  "jsmacros.h" 

float  *vector(); 
void  free_vector () ; 

/♦  MAIN  PROGRAM  BODY  »/ 

/♦♦*♦♦♦♦♦♦*♦♦♦♦♦+♦♦♦♦♦*♦/ 

void  reconvolve(dataoutpointer ,h_of_npointer,g^of_npointer , 
c_coefpointer ,d_coefpo inter) 
float_vector  ♦dataoutpointer ; 
float_V3ctor  *h_of_npointer ,  *g_of _npointer; 
f loat_vector  *c_coefpointer .♦d._coefpointer; 

/i^*  -  m****i¥*****’¥*********/ 

/♦  declare  v'liables  */ 
in.t  i  .  j  ; 
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float_vector  vectin.vectout,  response; 
iloat^vector  temp, tempt ; 
char  1 i 1 ename [64] ; 

FILE  *outfile; 

/+  allocate  memory  ♦/ 

temp. length  =  c_coefpointer->length*2; 
temp. vector  =  vector (1,  temp. length) ; 
loopli (temp. length)  temp. vector [i]  =0.0; 
tempi. length  =  c_coefpointer->length+2; 
tempi. vector  =  vectorCl,  tempi .length) ; 
loopli(templ. length)  tempi .vector [i]  =  0.0; 
vectin. vector  =  vectord ,temp.length*2) ; 
loopli (temp.length*2)  vectin. vactor[i]  =  0.0; 
vectout  .vector  =  vectord, 4*teEp. length)  ; 
loopli(temp.length*4)  vectout .vector [i]  =  0.0; 
response . vector  =  vectorCl , temp. length*2) ; 
loopli (temp. length*2)  response. vector [i]  =  0.0; 

vectin. length  =  4*  _coefpointer->length; 
dataoutpointer->length  =  c_coefpointer->length*2; 

/*  perform  convolution  ♦/ 

/*♦♦♦>*>♦♦*♦♦♦♦♦♦*♦♦♦»♦*♦*/ 

print! ("\nConvovling  c_coel  with  h(n)..."); 

looplj(c_coefpointer->length)  vectin.vector [2*j]  =  c_coefpointei->vector[j] ; 
looplj (vectin. length)  response. vector [j] =h_of_npointer->vectorCj]  ; 
spconvi V (vectin . vector , vectin . length , response . vector , 

h_of ,npointer->length, 1 .vectout. vector) : 
looplj (c_coefpoiirtor->length*2)  temp. vector Cj]  =  vectout .vector [j] ; 

/♦  zeros  were  added  between  each  row  before  convolution  ♦/ 

printf ("\nConvovling  d_coef  with  g(n)..."); 

looplj (d_coefpointer->length)  vectin.vector [2*j]  =  d_coefpointer->vector [j] ; 
looplj (vectin. length)  response. vector [j]=g_of_npointer->vector[jj ; 
spconvi V (vectin . vector , vectin . length ,i esponse . vector , 

g_of _npointer~>length, 1 .vectout . vector) ; 
looplj (d_coefpointer->length*2)  tempi. vctorCj]  =  vectout. vector [j] ; 

/*  zeros  are  added  between  each  row  before  convolution  ♦/ 

/♦  Add  temp  vectors  ♦/ 
loopli (uatttOUtpOiiitex  “>lciigtu) 

dataoutpointer->vector [i]  =  temp. vector [i]  +  tempi . vector [i] ; 

/+  reset  vector  indeces.  */ 
d_coefpointer->length  =  dataoutpointer->length; 

/♦  free  memory  ♦/ 

free_vector(temp. vector ,  1,  c_coefpointer->length*2) ; 
free_vector(templ .vector ,  1,  c_coefpointer->length*2) ; 
free_vector(vectin- vector,  1,  4*dataoutpointer->length) ; 
free_vector(vectout . vector ,  1,  8*dataoutpointer->length) ; 

> 


B.  j.8  Liiyting  of  SPCONVLV.C  (See  Ajipcndix  11.2) 
Listnig  of  NRUTIL.C  (.See  Appendix  F.'i)  [13] 
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B.4-10  Listing  of  JSMACROS.H  (See  Appendix  F.2) 
B.4.11  Listing  of  STEWMATH.H  (See  Appendix  F.2) 
B.4A2  Listing  of  MAKEFILE 


#  Makefile  routine  for  the  uavei  progrzun  by  Laing  and  Smiley. 
DEFLAGS  =  “g 

OBJS  =  main-wavel.o  loadsignal.o  filters.©  convolvel.o  spconvlv.o\ 
decomposel.o  reconstruct! .0  reccnvolvel.o  nrutil.o 

spvave2;  $(CIBJS) 

Cecho  "linking  ..." 

cc  $(0BJS)  -o  wavel  $(DEFLAGS)  -Im 

main-wavel.o:  main-wave! . c 
cc  -c  $ (DEFLAGS)  main-wave! .c 

loadsignal.o:  loadsignal.c 
cc  -c  $ (DEFLAGS)  loadsignal.c 

filters.©:  filters. c 
cc  -c  $(DEFLAGS)  f liters. c 

spconvlv.o:  spconvlv.c 
cc  -c  $(DEFLAGS)  spconvlv.c 

convolve  1.0:  convolve l.c 
cc  -c  $(DEFLAGS)  convolve!. c 

reconvolve! ,0:  reconvolvel . c 
cc  -c  $ (DEFLAGS)  reconvolvel . c 

decomposel.o:  decomposel.c 
cc  -c  $ (DEFLAGS)  decomposel.c 

resonstructl .0:  reconstruct! . c 
cc  -c  $(DEFLAGS)  reconstruct! . c 

nrutil.O:  nrutil.c 

cc  -c  $(DEFLAGS)  nrutil.c 
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Appendix  C.  Software  for  Utilities 

C.l  Description  of  Utilities 

The  following  is  a  list  of  the  software  utilities  used  in  this  thesis.  It  includes  Header 
files  and  subroutines  that  are  found  in  much  of  the  software  listed  in  earlier  appendices  and 
command  line  programs  that  filter  individual  files. 

1.  jsraacros.h  -  A  header  file  containing  macros  used  widely  in  the  software  written  for 
this  thesis. 

2.  macros, h  -  A  header  fiie  containing  some  macros  used  early  on  in  the  software  of  this 
thesis. 

3.  stewmath.h  -  A  header  fiie  containing  an  integer  math  routine  to  take  the  base  2 
logarithm  of  an  integer  number. 

4.  asift.c  -  A  program  tl.at  converts  an  input  file  of  float  AiSCll  values,  one  per  line, 
to  integer  ASCII  values,  one  per  line.  The  values  are  clipped  at  a  minimum  value  of 
0  and  a  maximum  of  255.  After  conversion  and  before  clipping,  the  absolute  value  of 
each  number  is  taken. 

5.  daub.c  -  A  program  used  to  generate  and  ip(x')  given  an  h{7i).  All  h(n) 

values  are  hard  coded  and  must  be  entered  before  compilation.  Other  input  is  inter¬ 
active. 

6.  epsview.c  -  A  program  th,a  converts  an  input  file  from  ASCII  format  in  which  each 
line  Irolds  an  integer  number  to  hex  with  an  Ecapsulated  PostScript  lieader. 

7.  matr  ixtoascii  .  c  -  A  program  that  converts  a  Khoros  ASCII  output  to  a  file  that  has 
one  integer  per  line  [31].  Tliis  program  strips  oH  the  matrix  coordinates  of  the  values. 

8.  nrutil.c  -  A  set  of  utilities  ju'ovided  by  Numvciicai  Rccipies  in  C used  in  tliis  thesis 
mostly  for  dyiiaunc  incp'ory  allocation  [13]. 
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9.  threshold. c  -  A  program  that  thresholds  an  Input  hie  of  ASCII  values  eliminating  a 
user  specified  window  of  minimum  and  maximum  values.  All  values  inside  the  window 
are  set  to  255  and  all  values  outside  the  window  are  set  to  0.  This  creates  a  black  and 
white  binary  representation  of  the  input  file. 

10.  rd834  .c  -  A  program  to  convert  raw  SAR  imagery  to  a  complex  format. 

11 .  logb.c  -  A  program  to  convery  complex  format  SAR  imagery  to  a  byte  format  scaled 
oetween  0-255  grey  scales  and  ready  for  consumption  by  the  Khoros  system. 

12.  extract. c  -  This  program  generates  data  ''ectors  from  multiresolutiop  decomposition 
coefficient  files  for  use  in  Dan  ?jahirniak’s  Radial  Basis  Function  neural  network. 

13.  center. c  -  This  program  generates  data  vectors  from  multiresoluf ion  decomposition 
coelFicicnt  files  for  use  in  Dan  Zahirniak’s  R.adial  Baais  Function  neural  network.  The 
training  data  is  extracted  from  large  blocks  or  areas  of  the  image. 

14.  normalizeA.c  -  This  program  will  normalize  a  set  of  data  vectors  used  in  the  RBF 
netwo’-k. 

C.2  Utilitij  Software 

C.2.1  Listw!)  of  ISMACHOS.C 

Couyenient  Macros  for  WAVE  program 
/*+♦  MACROS  *♦♦/ 

Odefiiip  CREATE_M4TKIX_n.0W(A ,  B  ,C  J  A  =  (C  ♦♦)calloc(B,  si?eof(C  *1) 

#define  DELETE_HATaiX_ROW{,' , C)  free((C  *)  4) 

tdefiue  CLOSE_FIlE( A , B , C ,0)  if ( ( A=f close(D))  “  EOF''  {  \ 

printf  (strcatCC  :f ile  may  already  be  closed  -  '/.s-Xo”)  ,B)  ;  > 

^define  tftEATE_HATHX_CLt{A,B  ,C,D)  for(.i=0;  i<B;  ++i)  A[i3  =  (D  ♦)  \ 
calloc(C,  sizeof(D)) 

^define  DELETE_MATRIX_COL (A,3,D)  for(i=C;  i<E;  ++i)  frej((D  ♦)  A[iJ) 

ffdefine  CREATE_VECTOR(A  ,B  ,C)  A  =  (C  ♦)calloc(B,  sizeofCO) 

^define  DELE7E_VEC10R(# )  free (A) 

iidefiae  loopli(A)  f  or  ( i'-l ;  i<=A ;  i++) 

^(defiue  locplj(A)  forCj"!  ;  j<-A;  j++) 

<fdefine  loopll(A)  for(l=l  ;1<=A;  1  +  +  ) 

#def  e  looplV(A)  for(k=l ;k<=A;k+f ) 

«de.  iie  lcoplij(A.B)  f  or  ( i=l ;  j<=.1 ;  i  f+)  for(j-l;  j<=B;  j  +  +  ) 

^define  looplklCA  ,  B)  forCk=l  ;k<=A  ;k+0  f  or  (1- 1 ;  a.<--B;l+  +  ) 


#define  CREA'iE  FLOA1_VECTOR(A.B  ,C)  A  =  vector(B.C) 

#define  CREATE_IMT_VECTOR(A.B,C)  A  =  ivector(B.C) 
ffdefine  CREATE_DOURr,E_VECTOR(A ,B,C)  A  =  dvector(B,C) 

tfdefine  CREATE_FLOAT..HATRIX( A , B ,C , D , E)  A  =  matrix(B,C ,D. E) 
#define  CREATE  INT_MATRIX( A ,B , C ,D , E)  A  =  imatrix(B.C,D,E) 
ffdefine  CREATE  DOUBLE_MATRIX(A,b,C,D,E)  A  =  dmatrix(B,C,I),E 


struct  int_array  { 
int  ♦array; 
int  ROW,  COL; 

>; 

typedei'  struct  int_array  int^array; 

struct  float  ..array  { 
float  ♦♦array; 
int  ROW.  COL; 

>; 

typedef  struct  float_array  float_array; 

struct  phi_array  { 
float  ♦♦array: 
int  ROW,  COL; 
int  Intervals; 

>: 

typadef  struct  phi..array  plii^array; 

struct  float_vector  { 
float  ♦vector; 
int  length; 

]•: 

typedei  struct  float.vector  f loat_vector ; 


C.  2.2  Lit>(in<j  of  MA  Clt  OS.  C 


Convenient  Macros  for  Perception  Package  by  Capt  Creg  Tarr 

+  +  +  +  + ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦♦♦*♦  *♦♦***♦♦*♦♦*♦♦*/ 


#ifdel  LEO 

#define  REAL_FMT  '"/.g" 


#define  REAL_FHT  "‘/.Is" 

<#eiidif 

#ifdef  NEXT 

^undef  REAL.FMT 

#defirie  REAL_FHT  "y.lf 

#end.'.f 


#defij  e.  Boolean  int 
^define  False  0 
#deline  True  1 


/♦♦  dominant  Sensor  Definitions 
#define  SINGLE  0 
#define  FLIR  1 
#define  RNG  2 


♦♦/ 


/*♦  Mask  Definitione  *♦/ 
#define  OFF  0.0 
#define  OK  1.0 

junk_rosponse[2S6]  ; 


char 


#deiiiie  1  ..Kip_linc(A)  fgets( junk_response,  266,  A) 

#d«Sine  skip_liTie  gets(junk_rer.ponse) 

#define  rloopi(A)  for ( i= (A) -1 ; ±>-0; i — ) 

^define  rloopj(A)  for( j=(A)-l ; j>=0; j — ) 

#defiiie  rloopk(A)  for(k=(A)-l  ;k>=0;k — ) 

#define  rloopl(A)  for(l=(A)-l;l>=0;l — ) 
jfdofine  rlO':>pm(A)  for(ni=(A)-l ;m>=0;in — ) 

#de1;ine  rloopn(A)  for(n=(A)-l  ;n>=0;n — ) 

#define  rloopp(A)  for(p=(A)-l ;p>=0;p — ) 

^define  rloopij(A,B)  f or (i=( A)-l ; i>=0; i — )  for(j=(B)-l;j>=0; j — ) 
#define  loopi(A)  for(i=0; i<A ; i++) 

^define  loopj(A)  fot(j=0; j<A; j++) 

#d£fine  loopk(A)  for(k=0;k<A;k++) 

#define  loopKA^  for(l=0;l<A;l++) 

#define  loopM(A)  for(in=0;m<A  ;m+  +  ) 

#define  loopn(A)  for(n=0 ; n<A ; n++) 

#definc  loopp{A)  for(p=0;p<A;p++) 

#define  ioopij{A,B)  for(i=0; i<A; i++)  for(j=0; j<B; j<-+) 

#define  loopkl(A,B)  for(k=0; k<A ;k++)  fcr(l=0;l<B;l++) 

#define  MALLOCCA.B.C.D)  if((A=(C  ♦)malloc((B)*sizeof (C)))==MULL)  {  \ 
f printf (stderi ,  stroat(D,";  insufficient  memorjAn")  );  \ 
exit(-l);  } 

^define  CREATE_KIL)i;(A,B,C)  ii((A=fopen(B,"H‘'))  ==  »ULL)  {  \ 

printf (strcat (C ;  can’t  open  for  writing  -  */«sAn"),B);  \ 
exit  (-1);  } 

#defiiic  OPSM.KILE(A.B.C)  if ( (A=f open(B . "r">)  ==  HULL)  {  \ 

printf (strcatCC,";  can’t  open  for  reading  y,sAn'’),B);  \ 
exit  (-1);  > 

#defire  idx(l,J,W)  (I)*(N)+(J) 


/'iff  All  of  these  are  dependent  on  the  definition  of  "layer"  ♦*/ 


#defins  flAX.IHPUTd  SO 
#define  HAX.NODBS  50 
#define  MAX.Hl.KODES  50 
^define  KAX.H2  NODES  SO 
#dcfine  MAX.OUTPUTS  50 

#fdefine  MAX_vECTORS  1000 


Ifdef  ine 

Wr5..TYP£. 

MSF 

2 

/* 

new 

weights 

file 

♦/ 

#d&f ine 

WTS.TYPE. 

.1 

1 

/♦ 

new 

weights 

file 

*/ 

#def ine 

WTS.TYPE. 

0 

0 

/* 

old 

weights 

file 

♦/ 

#def ine 

TRAIN 

0 

#def ine 

TEST 

1 

i/define  1HREE_LAYER  3 
#define  TWO.LAYER  2 


C.i'.S  Lityliny  of  Sl'EWM  Al'll  .C 


/♦  This  is  a  collection  of  functions  for  Convenience  */ 

L0G2  takes  the  log  base  two  oi  an  integer  and  returns  an  integer. 

♦  if: 


int  La02(x) 
int  X ; 

{ 

int  y  =  0 ; 

whil-,  (x/2  >  0){ 

X  (-  2; 
y++; 

> 


C  -1 


return  y; 

> 

/*  The  following  is  not  used  in  WAVE  */ 

void  f lipo( invectorpo inter , out veotorpointer) 

float_vector  ♦invectorpointer,  *oiitvectorpointer; 

int  i; 

int  map; 

outvectorpointer->length  -=  iiiveetorpoiiiter->length; 

outvectorpointer->vector [l]  =  invectorpolat«ir->vector  [1] ; 

map  =  invectorpoiiiter->length  -  2; 

loopi(invectorpointer->length  -  1){ 

Otttvectorpointer->vector[i+2l  =  invectorpointej’ -^>vector  [i+2+inap]  ; 
map  -=  2; 

> 

1 

J 

void  f lipc( invectorpointer t out vectorpointer) 

fjoat_vector  *inv8ccorDoiriter,  *outvec.torpointer; 

int  i ; 

loopi(invfcctorpointcr->length/2  +  1) 

outvectorpoint«r->vector[invectoipoint<ir->lengtli/2  -  i]  - 
invcctorpointer->vectoi Ci+1] ; 

outvectorpointer->length  =  invectorpointer->leiigth; 


C.2.3.1  Listing  of  ASIFT.C 

/  +  ♦♦♦♦♦♦♦♦♦♦♦**■  ♦♦********  A  +  ***;»***#****  j 

/♦♦♦  FLOAT  TO  INTEGER  CLIP  AND  SIFT  PROGRAM  *»/ 

A  4.  »>»*«»  «<;>********>/ 

♦♦♦♦  t- ♦♦4  ♦♦‘♦♦♦♦♦•'I'*** A ♦♦  +  if- +  ♦»>!<!>♦♦♦/ 

h  DATK:  3  Sept  91 
VERSION;  1,0 
NAME:  asift.c 

DESCRIPTION;  This  program  converts  the  numbers  from  an  input  file  in  which 
each  number  is  on  a  separate  line  from  float  to  integer.  This  process  also 
takes  the  absolute  value  and  clips  the  values  to  stay  between  a  minimum 
value  of  0  and  a  maxi-mum  value  of  255- 

riLES  READ:  One  file  specified  by  the  user. 

FILE5  WRITTEN:  One  file  specified  by  the  user. 

HEADERS  USED:  <stdio.h>,  ".‘israacros.h"  ,  "macros .h" ,  "stewmath.h", 

<nvith.  h> 

CALLIN'!  PROGRAMS:  NONE 

PROGRAMS  CALLED:  HONE 

AUTHOR:  J.  Stewart  Laiiig  and  Steve  Smiley 

HISTORY:  Initial  Version 
*i 

/♦*♦  t  A*  +  +  +  4.,  If. 4  +  ♦+*  +  +  ■*»*♦♦  +  ♦<'*♦***♦♦*  ♦♦4./ 

/♦♦444*  +  fif*44  +  **  +  *  +  4  +  »i+»4+/ 

/*  DECLARATION  SLi:TI0N  */ 

^include  <stdio.h> 

^include  "macros. h" 

#includt  "jsmacros.h" 


Cb 


#include  "stewmath.h" 

#include  <math.h> 

/*  MAIK  PROGRAM  BODY  */ 

/  +  +  t^*  +  +  **  +  +  *l*r***  +  **4(***i4c/ 

void  main(argc,  argv) 
int  argc; 
char  *argv[] ; 

<. 

/*  initialize  Vciriables  ♦/ 

/  4< «  *  « :|t  *  « #  1^  *  *  Ik  *  4<  4”^  / 

float_zu:ray  basis,  coef ,  proj .  temp; 

int  i,  j,  k,  1,  level,  size,  shift=l,  newi,  newj,newint; 
char  basis! ile[64] ,  coeffile[64] ; 

FILE  +infilel,  ♦inlile2,  ■'outlile; 

*>**************/ 

J*  test  parameters  */ 

if (argc  !=  4  At  argc  !=  1){ 

print! ("Usage;  threshold  <!ilenaine>  <#  of  roHS>  <#  of  Cols>\n"); 
exit(O) ; 


♦♦♦♦♦*** ****♦/ 

'♦  PROMPT  USER  •/ 

.  **********¥*¥*T*¥Jf5r^ipT / 

if(argc  ==  1){ 

print! ("\n  Enter  the  name  of  the  coefficient  file»"); 
scanf("'(s",  coeffile); 

printf("\n  Enter  the  size  of  the  NXR  coefficen  array»") ; 
scan! ("'/,d",  Acoe-'.ROW); 

> 

else{ 

sprint!  (coeffile,  '"/.s"  ,  argvCl]); 
sscanf  (argv[2]  ,  '"/.d"  ,  tcoef.ROW); 
sscanf  (argv[3]  ,  "’/.d”  ,  ftcoef.COL); 

> 


/♦  create  a  matrix  to  hold  the  image  ♦ 


/ 

/ 


coef. COL  =  coef. ROW; 

CREATE_HATRIX_ROW(coef . array ,  coef. ROW,  float); 
CREATE_MATRIX_COL(coei. array ,  coef. ROW.  coef, COL,  float); 

/♦  open  input  file  +/ 


OPEN_FILE  (infilel,  coeffile,  "The  projection  program") ; 
loopij (coef .ROW,  coef. COL) 

f  scan! (inf  ilel ,  '"hi"  ,  tcoef  .  array  [i]  [j]  )  , 

CLOSE_FILE  (i,  coeffile,  "The  projection  program  ",  infilel) 
printf("\n  **  The  image  '/.s  has  been  loaded  for  processing,  ♦♦\n\n\n" 
coeffile) ; 

/♦  OUTPUT  PROJECTION  */ 


CREATE_FILE(outf ile,  "sifted",  "The  Projection  Prograat") 
loopij (coef .ROW,  coef.COL)-[ 

newint  =  abs( (int) (coef . array [i] Cj] )) , 
if  (newint  >  256)  newint  =  255; 
if  (newint  <  0)  newint  =0; 
fprintf  (ontf  ile,  "'/,d\n" ,  newint)  ; 

} 

printfC'The  projection  file  has  been  complrted\n'‘) ; 

} 


C.2.4  Listing  of  DAUB.C 


/♦»*♦♦♦♦*♦♦♦♦♦♦**♦*♦♦♦*  +  *♦  +  **♦*♦♦♦♦•♦♦*»»>♦♦♦♦•*•♦■!(*«<♦•*»*»♦>»« 

/***  WAVELET  GENERATOR  PROGRAM  *■>/ 

*=t4-+**++ #4*/ 

/*  DATE;  3  Sept  91 
VERSION:  1.0 
NAME;  daub.c 

DESCRIPTION;  This  program  genorater.  the  g(n) ,  phi(i),  and  psi(x)  from 
a  given  h(n) .  The  values  of  the  h(n)  are  hard  coded  i...id  must  be  set 
before  comilation.  Depth  of  recursion  euid  type  cf  wavelet  are  chOBdn 
by  the  user  interactively. 

r'lLES  READ :  NGnE 

FILES  WRITTEN:  one  file  each  for  g(n),  phi(x).  and  pni(x.) 

HEADERS  USED:  <stdio.h>,  "j&tnacros .fc"  ,  "macros. h" 

CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED :  NONE 

AUTHOR;  J.  Stewart  Laing  and  Steve  Smiley 
HISTORY:  Initial  Version 

*/ 


^include  <stdio.h> 

Itincliidfi  "macros  h" 

#includc  " jemacros . h" 

float  H(N,n) 
int  N,n; 

{ 

if(;H  ==  2){ 

if(n  ==  0)  return  .4829629131; 
if(n  ==  1)  return  .8365163037; 
if(n  2)  return  .2241438680; 
if(n  ==  3)  return  -.1294096226; 
else  return  0.0; 

} 

if(H  =--=  3){ 


if  (n 

=  = 

0) 

return 

.3326705530; 

if  (n 

=  = 

1) 

return 

.8068915093; 

if  (n 

=  = 

2) 

return 

.4598775021 ; 

if  (n 

=  = 

3) 

return 

-.1350110200; 

if  (n 

=  = 

4) 

return 

-.0854412739; 

if  (n 

=  = 

5) 

return 

.0352262919; 

else 

} 

if(N  == 
if  (n 

return  0.0; 

4)< 

==  0) 

return 

.2303778133; 

C-7 


il  (n 

=  ;= 

:) 

return 

.7348465706 

if  (n 

2) 

return 

.63C8807679; 

’f  (n 

== 

3) 

retur.n 

-,0279837694; 

if  (n 

== 

1) 

leturn 

r. 1870348117; 

if  (ii 

== 

5) 

return 

;030a413818 

if  (n. 

6) 

return 

.03288301 17 

if  (n 

7) 

return 

-.0105974018; 

else 

return  0.0; 

y 

il(N  == 

s){ 

if  (n 

=  = 

0) 

return 

.  1601023980 

if  (n 

=  = 

1) 

return 

.6038292698 

if  (n 

2) 

return 

7243085284 

if  (n 

=  = 

3) 

return 

.  13812G3469 

if  (n 

r=.‘ 

4) 

return 

-.2422048871; 

if  (ti 

== 

S) 

return 

-.0322448696; 

if  (n 

6) 

return 

.0775714938 

if  (n 

=  = 

7) 

return 

-.0062414902; 

if{n 

=  - 

8) 

return 

-.0125807520; 

if(n 

=  = 

9) 

retuiu 

.0033357253 

elce 

j 

return  0.0; 

ifCH  == 

6) 

{ 

if  (n 

irz 

0) 

return 

.115407434; 

if  (n 

ir.z; 

1) 

return 

.  4046238904 

if  (u 

rr 

2) 

return 

.7511339080 

ii(n 

=  = 

3) 

return 

.  3152503517 

lf(A 

=  = 

4) 

return 

-.2262646940; 

if  (n 

=s: 

s) 

return 

-.1297668676; 

if  Oi 

6.1 

return 

.0975016066 

if  (n 

== 

7> 

return 

.0275228655 

if  (n 

== 

8; 

return 

-.0316820393; 

if  (n 

== 

9) 

return 

.  000.5S38422 

if  (n 

=  21 

io) 

return 

.0047772675; 

if  (n 

=  = 

11) 

return 

-.0010773011 

else 

return  0.0; 

y 

if(N  == 

7) 

i 

if  (n 

=  Lr 

0) 

return 

.0778620541 

if  (n 

2::2 

1) 

return 

,3965393195 

if  (n 

2) 

return 

.7291320908 

if  (n 

== 

3) 

return 

.4697822874 

if  (n 

== 

4) 

return 

-.1439060039; 

if  (n 

:=  = 

s) 

return 

-.2240361850; 

;== 

6) 

T'At  iir-n 

.  0713092193 

ifCii 

i:= 

7) 

return 

.0806126092: 

if  (n 

:;  = 

81 

return 

-.0380299369; 

i  f  (ki 

=  = 

3) 

return 

-.O’-’ '•-745416; 

if  (a 

=  = 

10) 

return 

09986; 

if(ri 

11) 

return 

.0  *296780; 

if  (.XL 

== 

12) 

return 

-.0018016407 

if  (n 

=  = 

13) 

return 

.0003537138; 

else 

\ 

return  0.0, 

/ 

if(H  -- 

8) 

{ 

if(ri 

0) 

return 

,0,544158422 

if(n 

1) 

return 

.3128715909 

if  (n 

=r: 

2) 

return 

.6756307363 

il(n 

»= 

3) 

return 

.  5863.546837 

if(n 

rsr: 

4) 

return 

-.0158291063; 

if  (n 

6) 

return 

-.2840155430; 

if  (n 

::= 

6) 

return 

.  0004724856 

if  (ii 

== 

7) 

return 

.1287474266; 

if  (n 

== 

8) 

return 

-.0173693010; 

if(n 

9) 

return 

-.0440882539; 

if  (n 

== 

10) 

return 

.0139810279; 

if  (n 

=  = 

11) 

return  .0087460940; 

if(n 

=  = 

12) 

return  -.0048703530; 

if  (n 

=  = 

13) 

return  -.0003917404; 

if  (n 

=  = 

14) 

return  ,0006764494; 

if  (n 

=  = 

16) 

return  -.0001174768; 

else 

return 

0.0; 

j. 

if(N  == 

9) 

■c 

if  (n 

==; 

0) 

return  .0380779474 

if  (n 

== 

1) 

return  .2433346746 

if  (n 

2) 

return  .6048231237 

if  (n 

3) 

return  .6572880781 

if  (n 

4) 

return  .1331973858 

if  (n 

=5: 

6) 

retu.  n  -.2932737833; 

if  (n 

6) 

return  -.0968407832; 

if  (n 

== 

7) 

return  . 1485407493 

if  (n 

8) 

return  .0307266815 

if  (n 

==: 

9) 

return  -.0676328291; 

if  (n 

10) 

return  .0002609471; 

if  (n 

== 

11) 

return  .0223616621; 

if(n 

== 

12) 

return  -.0047232048; 

if  (n 

== 

13) 

return  -.0042815037; 

if  (n 

== 

14) 

return  .001C476469; 

if  (n 

== 

16) 

return  ,0002303856; 

if  (n 

=  = 

10) 

return  -.0002619C32; 

if(n 

== 

17) 

return  .0000393473; 

else 

return 

0.0; 

y 

if(N  == 

10) 

{ 

ii  (n 

0) 

return  .0266700579 

if  (n 

i) 

return  .iB6i76a0oi 

if  (n 

== 

2) 

return  .5272011889 

if  (n 

=  = 

3) 

return  .6884590395 

if(n 

ss 

4) 

return  .2811723437 

if(n 

=  = 

6) 

return  -.2498464243; 

il(n 

=  = 

6) 

return  -.1959462744; 

if  (n 

7) 

return  .1273693403 

if  (n 

== 

8) 

return  .0930573646 

if  (n 

s) 

return  -.0713941472; 

if  (n 

=ss 

10) 

return  -.0294575368; 

if  (n 

=  = 

11) 

return  .0332126741; 

if  (n 

=:  = 

12) 

return  .0036065636; 

if  (n 

== 

13) 

return  -.0107331755; 

if  (n 

=  = 

14) 

return  .0013953517; 

if  (n 

==; 

15) 

rct-urn  .00199240531 

if(n 

=  = 

16) 

return  -.0006858667; 

if  (n 

== 

17) 

return  -.0001164669; 

if  (n 

== 

18) 

return  .0000936887; 

if  (r. 

== 

19) 

return  -.0000132642; 

else 

return 

0.0; 

else  { 

printl'C'NnError ;  Invalid  choice  of  K") ;fflush(stdcut) 
return  0.0; 

} 

> 

float  G(H,n) 
int  N.n; 

int  i,sign=l; 

for C i=l ; i<=abs( 1-n) ; i++)  sign  *-  -1; 
return  (sign+H(S , 1-n) ) ; 

> 

float  now(K ,1 ,x) 


int  N,l,x; 

{ 

int  n; 

float  temp  =  0.0; 

if  (1  <=  0){ 

if  (x  ==  0)  return  1.0; 
else  return  0,0; 

> 

else  { 

for  (n=0;n<=2*H-l;++n)  temp  +=  H(N,n)  ♦  neB(N,  1-1,  2*x-n) ; 
return  (1 . 414212662’t-temp) ; 

} 

> 


void  mainO 

< 

int  i.l.M.J; 

float  temp,temp_sum=0.0; 
FILE  *outfile; 

Char  f ilenameC64] ; 


printf ("\nlnput  N  corresponding  to  the  desired  Daubeshies") ; 
printfC  Wavelet;  ; 
scanf("y.d".  ftK) ; 

printf  ("\nlnput  depth  of  rtcursion  1  =  *’); 
scanf  (*"/,d" ,  *1); 
printf ("\nWorking. . 

sprintf  (filename, "daub'/.d. phi",  N) ; 

CREATE_FILE(outfile,  filename,  "The  Daub  routine") 

for(i=0;  i<=(2*M-l);  ++i)  fprintf  (outf  ile ,  "y..9f\n",new(Ii  ,1 ,  i)) ; 

CL0SE„FILE(i ,  filename,  "The  Daub  routine",  outf  ile.) ; 

sprintf  (filename, "daub'/.d.h"  ,  N)  ; 

CREATE_FILE(outfile,  filename,  "The  Daub  routine") 
for(i=0;  i<=2*N-l;  ++i)  fprintf (outf ile,  "y,.9f\n",H{N,i)) ; 
CL0SE_FILE(i,  filename,  "The  Daub  routine",  outfile) ; 


sprintf  (filename, "daub'/.d.g"  ,  N)  ; 

CREATE_FILE(outf ile ,  filename,  "The  Daub  routine") 
for(i-l;  i>=2-2*N;  — i)  fprintf (outf ile,  "X.9f \n" ,G(1I , i) ) ; 
CLOSE  FILE(i,  filename,  "The  Daub  routine",  outfile); 
printf ("\n"); 


sprintf  (filename,  "daub'/.d.psi",  N) ; 


CREATE_FILE(outf ile ,  filename,  "The  Daub  routine") 

nr  1  Ti  t.*f  r  nf  siiTTnr»rt-  "i  c  VH  ^  ^  ^  ”1 )  ) /2  •  (  1+ (  (2*H  )  *"1 )  ) /2  ) 

for(j  =  (l-((2’t‘N)-l))/2;  j<=(l+((2*M)-l))/2;  ++j){ 


temp_EUin  =0.0; 

for(i=l;  i>=2-(2*K);  — i)i 

temp_sum  +=  G(N , i) ♦new(N, 1 , ((2*j)-i)) ; 


} 


fprintf  (outf  ile,  .9f\n" ,  1 .414212562*temp_sum) ; 

> 

CL0SE_FILE(i ,  filename,  "The  Daub  routine",  outfile); 
printf ("\n") ; 

> 


C.2.5  Listing  ofEPSVIlCW.C 


/44*44<4« 44 444 44444 44444444444444444444444444444V444444444444 44444 44 44444*4*4/ 

/***  ROUTIRE  TO  VIEW  IMAGES  FOR  WAVELET  ANALYZER  4**4*/ 

/44444444444444444444444444444*444444444444*444 44 4 44 4444444444444444444**444/ 
/444444444444444444****4444444444444 44444444444*4444444*44444*4444*44*44****/ 

/*  DATE:  IS  Ap.ril  91  */ 


C-10 


/♦  •/ 

/♦  VERSION;  1.0  ♦/ 

/♦  ♦/ 

/*  NAME:  epsview.c  ♦/ 

A  •/ 

/♦  DESCRIPTION:  This  routine  performs  the  inner  product  between  the  phi  */ 

/♦  and  phi  coeficient  of  the  image  at  any  valid  level  as  requested  by  ♦/ 

/*  the  caller.  */ 

/*  It  is  intended  as  a  subroutine  for  the  WAVELET  ANALYZER  PROGRAM.  */ 

A  */ 

/♦  FILES  READ:  NONE.  •/ 

A  */ 

/♦  FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is  */ 

/*  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  */ 

/*  mage  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  */ 

/*  */ 

/♦  HEADERS  USED:  <stdio.h>,  "macros. h",  <stdlib.h>,  "jlmacros .h" ,  */ 

/*  <string.h>  */ 

/*  ♦/ 

/*  CALLING  PROGRAMS:  main-wave, c  ♦/ 

/♦  ♦/ 

/*  PROGRAMS  CALLED:  NONE  ♦/ 

A  */ 

/♦  AUTHOR:  Steve  Smiley  and  I.  Stewart  Laing  ♦/ 

A  ♦/ 

/*  HISTORY:  Initial  Version  ♦/ 

/♦  ♦/ 


/♦♦*♦*♦*♦♦*♦*•*♦*♦*♦**♦*•*♦**♦♦*♦♦♦*♦♦♦•*♦*•♦*♦*••*♦*♦**********♦****♦****♦*/ 

/***4i****ee*:**e*4i«e***«**4'/ 

/»  DECLARATION  SECTION  */ 

****♦♦/ 


#include 

#include 

#include 

#include 

#include 

ffinclude 


<stdlib.h> 

<stdio.h> 

"jpacros.h" 

"jsmacros .h" 

<string.h> 

<mach.h> 


/+  FUNCTION  BODY  ♦/ 

/♦*♦♦+♦+♦*♦+++♦♦♦+♦♦♦+♦♦/ 

/♦imageviewC image) 

int-array  image ; 

{♦/ 

int  1,  j; 

FILE  ♦fopenO,  ♦infile,  »outfile; 

char  inf ilename [64] ,  viowf ile [64] ,  psfile[64]; 

int_array  image; 

void  roain(argc,  argv) 
int  argc ; 
char  ♦argv [] ; 

i 


if (argc  !=  4  &A  argc  1=  1){ 

printf ("Usage:  hist  <filename>  <#  of  rous>  of  Cols>\n"); 
exit(O) ; 

} 


if(argc  ==  1){ 

printf ("  \rAn  Input  filename  of  image  to  be  viewed ff lush(stdout) ; 
scanf("*/,s",  inlilename) ; 

printf ("\n\n  Input  the  size  of  the  image  (ROW  COLUMN) 
scan! ("7,d  '/!d" ,  JEimage.ROW,  Aimage.COL); 

} 


C-11 


Tpv ,  — ~:pp3r-*- 


else{ 

sprintf (infilenane,  ''%s",  argv[l]); 
sscauf  (argv[2]  ,  '"/.d",  ftimage.ROW); 
sscanf  (argv  [3]  ,  "*/,d" ,  Aimage .  COL)  ; 

} 

CREATE_MATRIX_EOW( imago. array,  image. ROW,  int); 
caEATE..MATRIX_COL(image. array,  image. ROW,  image. COL,  int); 

QPEN_FILE(inf ile,  inlilen^Lffle,  "opsvieH.c") 
loopij (image. ROW,  image. COL) { 

iscanl(inf  ile,  "’/,3u\n'‘,  A  image .  array  [i1  Cj]  ) ; 

> 

sprintf  (psfile,  "y.s.eps",  iniilencune) ; 

CREATE_FILE(outfile,  psiile,  "epsview.c") 

f  priKtf  Couti ile ,  "V/, !  PS-Adobe-2 . 0  EPSF-1 . 2\n" )  ; 

fprinti(outfile,"*/.’/,%*/,BouadingBox;  0  0  y,d  Xd  \n’',  image. ROW,  image. COL); 
f print! (outlile,‘'y.y.y.y,Creator:  Imageview  by  Laing  A  SmileyXn"); 
f print! Coutfile."y.yy.y.Title;  y.s.eps\n",  in!ilename); 

!print!  (out! ile .  ''yX/,y.EndCommonts\n")  ; 

!print!(out!ile,"gsavc\n”) ; 

f print! (out! ile. "/picstr  ‘/.d  string  dc! \n'*, image. ROW)  ; 

!print! (outfile , "0  0  translateXn") ; 

!print!(out!ile,'*y,d  %d  scaleXn"  .image.  ROW,  image. COL); 

!print!(outfile."y.d  '/.d  8  [’/.d  0  0  '/.d  0  0]\n".  image. ROW,  image. COL, 
image. ROW,  image. COL); 

!print!(out!ile,*'i  currentfile  picstr  readhexstring  pop}\n"); 
tprintf (out!ile,"image\n") ; 
loopij (imago. ROW,  image. COL) { 

i! ( image. array [i][j]  <=  15)  !printf  (out! ile ,  ''O’/.xXn",  image . array  [i]  [j]  ) ; 
i! (image. array [i] [j]  >  IS)  !printf (out!ile,'7.2xXn",  image.array [i] [j]) ; 


iprintf (out!ile,"showpage") ; 

/*  call  the  shoBpage  !rom  unix  */ 

^  4:  ifc  ^  1 *  4(  4=  4^  ♦  4^  4^  / 

printlCXnl  have  created  a  postscript  !ile  called:  %sXnXn",  psfile); 

!!lush(stdout) ; 

/♦sprint! (view! ile,  "csh  -c  pageview  /tmp_mrit/lioine/scgraph/en/ge/Bsmiley/rhesis/C-code/Develop 
/heximage.psXn") ; 

print!("y.s"  ,  viewiile);  ff  lush(Etdout)  ; 
system(vie»!ile) ;  ♦/ 

> 


C.2. 6  Listing  of  MA TRIXTO ASCII  C 


/♦**  KHOROS  ASCII  STRIPPER  *♦/ 

♦♦♦♦♦♦♦♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦i*  ♦♦*♦♦♦♦♦♦ 

/♦  DATE:  3  Sept  91 
VERSION;  1.0 
NAME:  matrixtoascii . c 

DESCRIPTION;  This  program  strips  the  matrix  coordinates  !rom  an  ASCII 
!ile  output  by  the  Khoros  image  processing  system. 
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FILES  READ:  One  fij.3  specified  by  the  user. 

FILES  WRITTEN:  One  file  with  the  suffix  .ascii  added. 

HEADERS  USED:  <stdio.h>,  " jsmacros .h" ,  <stdlib.h>,  <string.h>, 

<math . h> ,  "macros . h" 

CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED ;  NONE 


AUTHOR:  Steve  Smiley 
HISTORY;  Initial  Version 

*/ 

/^^***:^*:<f*mt******^**^’^m***^r*******’¥*mti*^^*<t*mMll*::^i^***.t^<*^*:^*t  ****************/ 

/*  DECLARATION  SECTION  */ 


#include 

#include 

#include 

^include 

#include 

#include 


<stdlib.h> 
<stdio .h> 
"macros .h" 
"jsmacros .h" 
<string.h> 
<math . h> 


main() 

{ 


FILE  *infi]e,  ♦outfile; 

char  inf ilename[64]  ,  psfile[643,  element[24],  num[20] ; 
int  i,  j,  hoidi,  hold2; 
int_array  Image; 


printfC  \n\n  Input  filename  of  image  to  be  cleaned:>"); 
scanf("y,s",  infilename); 

printf("\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>"); 
scanfC'/.d  7,d",  Aimage.ROW,  Aimage.COL); 

CREATE_MATRIX_R0W( image. array,  image. ROW,  int); 
CREATE_MATRIX_COL( image. array,  image. ROW,  image. COL,  int); 

OPEN_FILE(inf ile ,  infilename,  "matrixtoascii .c") 
while(*element  !=  ’#’)  fscanf  (inf  ile,  "*/,c" ,  element); 

loopij (image .ROW,  image. COL) ( 
fscanf (infile,  "Kc",  element); 

while (folement  !=  ’=’)  fscanf (inf ile,  "7,c" ,  element); 
fscanf  (intile,  "‘/,3d",  ftimage  .array  [i]  [j]  )  ; 

} 


sprintf (psf ile,  "'/,s .ascii" ,  infilename); 
CREATE_FIL£(outf ile,  psf ile,  "matrix. c") 

loopij (image. ROW,  image. COL) { 

fprintf  (outfile,  "*/,d\n",  image. array [i]  [j])  ; 

} 

> 

C.2.1  Liiiting  of  NRUTIL.C 

^include  <malloc.h> 

^include  <stdic.h> 

void  nrerror(eri'or_text) 


3 


char  errc.r_text  □ ; 
void  exitO  ; 


fprintf(stderr, "Numerical  Recipes  run-time 
fprin^f  (stderr ,  "'/,s\n"  ,error_text)  ; 
fprinti (stderr , " . . .noH  exiting  to  system.. 
exit(l); 


error. .  .\ti") ; 
W); 


float  ♦vector(nl ,nh) 
int  nl.nli; 

{ 

float  *v; 

v=(float  *)malloc( (unsigned)  (nh-nl+l)*t>izeof (float))  ; 
if  (!v’'  nrerror ("allocation  failure  in  vectorO"); 
return  v-nl ; 

> 

int  ♦ivector(nl ,nh) 
int  nl,nh; 

i 

iut  *v; 

v=(int  ♦)inalloc( (unsigned)  (nh-nl+1 ) ♦ uizeof (int) ) ; 
if  (Iv)  nrerror("al  location  failure  in  ivectorO") ; 
return  v-nl; 

} 

double  ♦dvectoi (nl ,nh) 
int  nl.nh; 

■». 

double  *7; 

v=(double  *)rnalloc( (unsigned)  (nh-nl+l)*sizeof(double)) ; 
if  (!v)  nrerror("allocotion  failure  in  dvectorO"); 
return  v-ul; 


float  ♦♦»iatrix(nrl  ,nrh,ncl,nch) 
int  nrl,nrh,ncl ,nch; 

{ 

int  i; 
float  ♦■(‘D; 

ni=(fioat  **)  malloc((unsigned)  inrh-nrl+l)*sizeof (float*) ) ; 
if  (!m)  nrerror("t.llocation  failure  1  in  niatrixO"); 
m  -=  nrl; 

for(i=nrl;i<=nrh;i++)  { 

m[i]=(float  *)  nialloc( (unsigned)  (nch-ncl+l)*sizeof (float) ) ; 
if  (!m[i])  nrerrorC'allocation  failure  2  in  matrixO")  ; 
iti[i]  -=  ncl; 

> 

return  m; 

> 

double  **dmatrix(nrl ,nrh,ncl,nch) 
int  nrl,nrh,ncl,nch; 

{ 

int  i; 
double  ♦*ra; 

m=(double  **)  malloc( (unsigned)  (nrh-nrl+l)*sizeof (double*))  ; 
if  (!m)  nrerrorC'allocation  failure  1  in  dmatrixO") ; 
m  -=  nrl; 

for  (i=tirl ;  i<=nrh  ;  i++)  { 

m[i]=(double  ♦)  malloc((unsigned)  (nch-ncl+l)*sizeol(double)) ; 
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±t  (!m[i])  nrerrorC'allocation  failure  2  in  dmatrixO") : 
in[i]  ncl; 

} 

return  ro; 

> 

int  ♦♦imatrix(nrl,nrh,ncl,nch) 
int  nrl.nrh.ncl.nch; 

{ 

int  i,*+m; 

in=(int  **)malloc( (unsigned)  (nrh~nrl+l)*sizeof (int*)) ; 
if  (!m)  nrerrorC'allocation  failure  1  in  imatrixO"); 
m  -=  nrl; 

lor(i=nrl:i<=nrh;i++)  { 

raCi]=(int  *)inalloc( (unsigned)  (nch-ncl+l)*siZ6of(int)) ; 
if  (ImCi])  nrerrorC'allocation  failure  2  in  imatrixC)") ; 
mCi]  -=  ncl; 

} 

return  ra; 

} 


float  ■•■♦submatrix (a , oldrl , oldrh , oldcl , oldch ,newrl .newel ) 
float  ♦♦a; 

int  oldrl , oldrh , oldcl .oldch . newrl .newel ; 

int  i.j; 
float  ♦*m; 

ni=(float  **)  malloc( (unsigned)  (oldrh-oldrl+l)*si26of (float*) ) ; 
if  (!m)  nrerrorCallocation  failure  in  submatrixO") ; 
m  -•=  newrl; 

f or ( i=oldrl , j  =newrl ; i<=oldrh ; i++ , j  ++)  m t j] =a [i) +oldcl-n6wcl ; 
return  m; 

} 


void  frec.vecto? (v.ul.nh) 
float  ♦v; 
int  nl.nh; 

{ 

free((char+)  (v+nl)); 

} 

void  f ree_ivGctor(v . nl .nh) 
int  *v, nl.nh; 

< 

free((char*)  (v+nl)); 

} 

void  free_dvector(v, nl.nh) 
double  ♦v; 
int  nl.nh; 

■{ 

free((char*)  (v+nl)); 

} 


void  free_matrix(m. nrl.nrh.ncl.nch) 
float  ♦♦m; 

int  nrl.nrh.ncl.nch; 

{ 

int  i ; 

for ( i=nrh ; i>=nrl ; i — )  free((char*)  (m[i]+ucl)); 
free ( (char*)  (m+ntl)); 

> 

void  free_drantrix(m.nrl .nrh.ncl .nch) 
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double  **m; 

int  nrl,nrh,ncl,nch.; 

<. 

int  i; 

ior(i=nrli;i>=iitl;i — )  iree((char*)  <mCi]+ncl)); 
free((char+)  (m+nrl)); 

} 

void  i ree_ imatr ix (m , nil , nrh , ncl , ach) 
int 

int  nrl.nrh.ncl.nch; 

•C 

int  i; 

for(i=nrh;i>=nrl;i — )  free((chai*)  (ni[i]+ncl)) ; 
free((ciiar*)  (m+nrl)); 

> 


void  free_subinatrix(b,nri,iirh,ncl,nch) 
float  **b; 

int  nrl,nrh,ncl,nch; 

{ 

free((char+)  (b+nrl)); 

> 


float  ♦♦convert_inatTix(a,nrl ,nrh,ncl.nch) 
float  *a; 

int  nrl.nrh.ncl.nch; 

i 

xnt  i  I  j  I  nrov  yiiCol; 

float  *+ni; 

nrow=nrli-nrl+l ; 
rcol=nch-r  1+i; 

m  =  (float  +*)  malloc( (unsigned)  (nrow)+sizeof (floet+) ) ; 
if  (!m)  nrerror( "allocation  failure  in  convert_aiatrixf )") ; 
m  -=  nrl; 

f or ( i=0 , j  =ni 1 ; i<=nrow-l ; i++ , j  ++)  m [ j] =a+ncol*i-ncl ; 
retui  n  m; 

> 


void  f ree_convert_ifcatr ix (b , nrl , nrh , ncl ,nch) 
float  **b; 

int  nrl, nrh, ncl, nch; 

i 

free((char’f)  (b+nrl)); 

> 


C.2.8  Listing  of  THRESHOLD.C 

/*<*  THRESHOLDEh  +♦/ 

Z*********************** ******* ****** ************* **** ****** «x**x**x**xx**x*/ 

/*  DATE;  3  Sept  91 
VERSION:  1.0 
NAME:  threshold. c 

DESCRIPTION :  This  program  thresholds  an  array  of  values .  A  windot  is 
chosen  interactively  by  the  user.  All  values  inside  the  window  are  sot 
to  266  (white)  and  all  values  outside  the  threshold  are  set  to  0  (black) . 

FILES  READ;  One  file  specified  by  the  user, 

FILES  WRITTEN;  One  file  with  the  suffix  .thresh  added. 
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HEADERS  USED:  <8^10. h>,  " jsnacros .h" ,  <stdlib.h>,  ’’macros, h" 

CALLIHG  PROGRAMS:  MOKE 
PROGRAMS  CALLED:  HOME 

AUTHOR:  J.  Stew^a■t  Laing  and  Steve  Smiley 
HISTORY:  Initial  Version 

♦/ 

/♦4‘4<4<»**4<4<4<+*+4<  +  ****4'4'4<4>4<4</ 

/*  DECLARATICH  SECTION  */ 

/  *>r«^**4<«<t<4<4<4<>4>l<4<<t<4<4>4<4<4‘4<4<A4</ 

#include  <stdlib.h> 

#include  <stdio.h> 

^include  "macros. h" 

#inclnd^  "jsmacros.h" 

/  <t<  14<  4<  *  :t<  ^  ^  1 4<  <4  ♦  4  4  4<  1 4<  *  4- 4<  A  4<  4<  <4  4>  / 

/*  FUNCTION  BODY  */ 

/  4<  4  4: 4  ♦  4<  4  4:  <4  4<  ♦  4  4<  4<  ♦  4<  4<  4<  4  4"  4s  4<  4<  / 

void  mainCaxgc,  argv) 
int  argc; 
char  4<argv  [] ; 

{ 

/444444444444444444444444/ 

/♦  initialize  variables  */ 

/4444444**444444444444444/  „ 

int_  i,j; 

FILfc.  '■iniile,  voutfiie; 

iAt_array  image; 

int  upthresh,  downthresh; 

cheir  iniilename[64]  ,  threshlile[64]  ; 

/4444444444444444444444<:  / 

/4>  test  parameters  */ 

/44444444444*44444444444/ 

if (argc  !=  4  AA  argc  f=  1){ 

print! ("Usage :  threshold  <filenarae>  <#  of  rowE>  <#  of  Cols>\n"); 
exit(O); 

> 

/*  44444444444444444444444444444444444444/ 

/4  prompt  for  pareuseters  if  not  input  */ 

/444444444444444444444444444444444444444/ 

if (argc  ==  1){ 

printf ("\n\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>"); 

Bcanf ("*/,d  y,d" ,  Aimage.ROW,  Aimage.COL); 

printf ("  \n\n  Input  filename  of  image  to  be  histogramed:>") ;  ff lush(stdout) ; 
scanfCy.s",  infilename); 

} 

/444444444444444444444444444444444444444444/ 

/4  use  parameters  given  on  command  line  */ 

/4444444444444444444444444444'>4444444444444/ 

else  { 

sprint! (infilename,  '"/.s",  argv[l]); 
sscanf  (arpvu2]  ,  ’"/.d"  ,  Aimage.ROW); 
s  scan!  (argv  [3]  ,  "y.d"  ,  Aimage.COL); 

} 

/ 444444444444444444444^4444444444444444/ 

/4  create  a  matrix  to  hold  the  image  */ 
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CREATE_MATRIX_ROW( image. array,  image  . ROW.  int)  ;  1,.  ..Y  ' 

CREATE_IlATRIX_COL( image. array,  image. ROW,  image. COL,  int); 

;*? 

/*  open  input  lile  */ 

OPEN_FILE  (inlile,  inlilename.  "The  thresholder")  ' 

/^iifi^m^nm********^**^**’^**^^****************************/ 

/*  prompt  user  for  upper  and  loser  threshold  values  */ 

printfC  \n\n  Input  upper  threshold: >") ; 

scanf  ("y.d" ,  Aupthresh)  ; 
printfC  \n\n  Input  losez  threshold: >") ; 
scanf  ( "7,d" ,  idosntliresh) ; 

/♦  Create  file  to  output  the  thresholded  array  for  use.*/ 

/4i4<4<**«4<*4:*i»***4.*e**4<*e*«.«*****«*%***e*********«*********/ 

sprintf(thre8hf ile,  "‘/s . thresh" ,  infilename); 

CREATE_FILE(outfile,  threshfile,  "The  Thresholder") 

/♦  This  part  actually  inputs  the  file,  thresholds  the  ♦/ 

/*  grey  scale  values,  and  vrites  out  either  a  266  for  ♦/ 

/*  white  if  it  is  betueen  the  up  and  down  thresh  values*/ 

/*  and  a  0  if  it  is  outside  this  window.  */ 

loopij ( image . ROW ,  image. COL) < 

f  scant  (infile,  "V,(i\n",  Itimage.  array  Li)  LjJ); 
if ((image. arrayCij [j]  >=  dcwnthresh)  •* 

( image. ar ray [i] [j]  <=  npthreeh))  image.array [i] [j]  =  266; 
else  image.array Ci] Cj]  =  0; 
fprintf (outlile,  "XdXn",  image. arr ay [i] Cj]) ; 

/«»****«e**etee*******************4i***** *************/ 

/*  Tell  the  user  where  the  output  file  is  located.  •'/ 

print£("\n  Thresholded  and  binarized  image  crsatod  and  saved  in:  '/,s\n\n" ,  threshfile); 

/*  THE  EID  */ 

} 

C.2.9  Listing  of  RDSSf.C 

/*  Program  to  read  ADTS  8-iam  tapes  on  a  SOI. 

«  e  *  e  *  *  lotice  *  e  »  *  • 

This  material  was  prepared  as  an  account  of  work  sponsored  by  the 
United  States  Government.  leither  the  United  States,  nor  the 
Department  of  Energy,  nor  the  Department  of  Defense,  nor  any  of 
their  employees,  nor  any  of  their  contractors,  subcontractors ,  or 
their  employees,  mahes  any  warranty,  expressed  or  implied,  or 
assumes  any  legal  liability  or  responsibility  for  the  accuracy, 
completeness,  or  usefulness  of  any  information,  apparatus,  product, 
or  process  disclosed,  or  represents  that  its  ure  would  not  infringe 
upon  privately  owned  rights, 

Buthoip  ;  Thomas  D.  Sullivan 
Sandia  National  Laboratories 
Division  ~  9133 
Albuquerque,  NH  87186-6800 
May  10,  1901 


compile  :  cc  -o  rdE84  rd384.c 

usdge  :  rd884  log_lile  <  adtB_file  >  lile.ol.complex.float.s 

log_file  :  output  lile  oi  lomatted  headorl  and  header^  from  the 
adts  tile.  Default  for  log_file  is  stdcrr. 

adts_lile  ;  input  lile  in  8-8-4  ATRWG  foiiat. 

file_ol_complex_floats  :  oucput  file  cf  calibrated  complex 
floating  point  pairs. 

Transfering  file  from  tape  to  dielt. 
dd  if=/dev/nrstO  of-adts_file  ibs=C156 
Positioning  tape  to  beginning  of  file  6. 
mt  -f  /dev/nrstO  asf  S 

*/ 

^include  <stdio.h> 

^include  <string.h> 
ch2u:  *8trstr(); 

mainCargc , argv) 
int  argc; 
char  ♦^lrgv  □ ; 

•C 

FILE 

iut  ic , il , ip , irec=0 .line , pol , frame , o-:f *> et ; 

char  •hdr2,*phdr2,line..header[&J  ,l.:no.  trailer [3]  .c.e.j  ,q; 

float  *cbuf,caJ_f actor; 

/•  Declaration  of  variables  in  heado' ;  */ 

char  country [6] ; 

char  lab [6] ; 

char  date  [9] ; 

char  data_naiaeC9] ; 

long  nrecords; 

long  header2_ien; 

long  reclen; 

long  pixent; 

long  ibytes; 

long  mbytes; 

long  ebytes; 

long  itsamps; 

long  nlines; 

long  deta_value_type; 

long  aux_data_type; 

long  header2_fmt; 

X  jTCC  f 

/♦  get  log_lile  n'^uae  */ 
if (argc  >  1)  { 

if((fp  =  fopenCargvCi] ,"w"))  ==  FULL  )  { 
fprintf(stderr, "Cannot  open  output  log  lile  7.8 \n", argv [1] ) ; 
exit(l) ; 

} 

} 

else 

Ip  =  stderr; 
for( : ; )  { 

J*  Position  to  start  of  next  header  1  */ 
f Beok(stdin,irec*reclen,0)  ; 

/v  Read  and  echo  headerl  */ 

if  (  f  gets  (country  .6,  stdin)  ==  Il'LL  )  break; 
f gets (lab, B.stdin)  ; 
f gets (date , 9 . stdin) ; 
f gets (data.nane , 9 . stdin) ; 

scan!  ("y.dy.d%dV.d*/.dy.d/(d%d%d/(dy.dy.d7.d"  .Rnrecords  ,Aheader2_len , 
kreclen.kpixent .aibytes .kmbytes .Rebytes ,ki  saunps .Rnlines , 
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Adata_value^type 
f print! (Ip," 
Iprintf  (!p,  "/(5By,6B 
!print!(lp,"y.lOB  : 
lprint!(fp,"^(106  : 
!printl(fp,")(10d  : 
!print!(!p."y.iOd  : 
Iprintf (lp,”i(10d  ; 
!print!(lp,"XlOd  ; 
Iprintf (lp,"XlOd  : 
Ipriatf (lp,"%10d  : 
lprint!(lp,"JJ10d  : 
fprintf (lp."y,10d  ; 
lprintf(fp,"y.lOd  : 
!print!(!p,"%10d  : 
!print!(!p. '7.10(1  : 
Iprintf (fp,"j(10d  : 
Iprintf (Ip, "XlOd  : 
fprintf (fp,"\n") ; 


.ftaux_data_type . Alteader2_fi:,t  ,ftlines_per  rec) ; 
HEADER- 1  COITEITS\n\n"); 

:  country /laboratory  of  or igin\n", country, lab); 

date  recorded  (YY  MM  DD)\n".date) ; 

data  naiBe\n",data_natn«): 

records  in  this  f ile\n",nrecords) ; 

bytes  in  header  tvoXn" ,header2_len) ; 

byt'&o  per  record\n",reclen) ; 

entries  per  image  8ainple\n",pixent); 

bytes  per  integer  entry\n",ibytes) ; 

bytes  per  mantissa  of  an  entryXn" .mbytes) ; 

bytes  per  exponent  of  an  entryXn" ,ebytes) ; 

image  samples  per  image  lineXn" ,nsamps) ; 

image  lines  per  imageXn" ,nlines) ; 

imagery  data  typeXn" .data_value_type) ; 

auxiliary  data  typeXn" ,aux_data_type) ; 

format  of  header  tnoXn",header2_fmt) ; 

image  line(s)  per  tape  recordXn",linos_per_rec) 


if  (  hcader2_len  1=  0  )  < 

/*  Position  to  start  of  header2.  Read  and  echo  */ 
fseek(8tdin, (irec+l)areclen,0) ; 

/ “  Allocate  space  for  header2 

if((hdx'2  =  (char  malloc(header2„l6n))  ==  NULL  )  'C 
fprintf (stderr, "Out  of  memory  for  header  2.Xn"); 
exit(l): 

J 

f read(hdr2 , sizeof (char) ,header2_len , stdin) ; 
for(il  =  0  ;  il  <  header2_len  ;  il++)  { 
c  =  hdr2Cil] ; 
if (c  ==  »\r')  c  =  'Xn' ; 
lputc(c,fp); 

> 

lprintf(fp,"Xn"); 

f*  scan  header2  for  calibration  factor  */ 

il((phdr2  =  strstr (hdr2, "SIGMA_O_T0_RCS  "))  ==  NULL  )  { 

fprintf ("Problems  with  header  2  cal_f actor. Xn") ; 
exit(l) ; 

phdr2  +=  34; 

/*  Return  allocated  space  for  header  2.  No  longer  needed.  */ 
free(hdr2) ; 


/♦  Allocate  space  for  float ing.point  complex  array.  ♦/ 

if((cbuf  =  (float  •)  malloc(2e8izeof (float)*n8amps))  ==  MULL  )  { 
fprintf (stderr ."Out  of  memory  for  complex  array. Xn"); 


offset  =  nrecords  -  nlines  ;  /*  start  of  data  •/ 
#ifdef  PRT 

fprintf(fp, "Offset  =  y.dXn",off  set)  ; 
fprintf(fp,"Calfac  =  5lfXn",cal_f actor); 
tendif 

cal_f actor  /=  4098.0; 

>  /•  if  (header2_len  ♦/ 


for(il  =  0  ;  il  <  nlines  ;  il++)  { 
fseek(Btdin,  (il-i-offset'*'irec)«reclen,0) ; 

/e  Read  and  unpack  line  header  •/ 

fread(lino_header, sizeof (char) ,6, stdin)  ; 

line  =  ((int)(line_header[l]  k  037)  <;<  8)  +  (linc.headerL^]  k  0377 
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.  -' j  't  ' 


pol  =  (line_he?>.d«r [1]  *  0140)  »  S; 

Irame  =  line_head«r[2]  *  0377; 

#iidaf  PRT 

lor(ic=0;ic<9;ic++)  fprintf(ip,"y,2.2x  •',line_headcr [icj )  ; 
lprintf(fp."\n") ; 

iprintl(lp,"liiie  '/,4d,  pol  %4d,  Irana  y,4d\n", lino, pol tlrane); 
#er.dif 

/*  Read  data  and  convert  to  complex  */ 
ior(ip  =  0  :  ip  <  nsaaps  ;  ip++)  { 
e=getc{stdin) ; 
i=getc(stdin) ; 
q-getc(stdin) ; 

cbuiC2*ip3  =  Clloat)((long)i«(ek017))*cal_lactor; 
cbulC2*ip+l]  ~  (float)  ((long)q«(e*017))*cal_lactor; 

} 

l6rite(cbuf,sizeof (float) ,2ensamps,8tdout) ; 

> 

iisc  +=  nrecords  ; 

>  /♦  for(; ;)  */ 

«xit(0) ; 

> 

cLar  ■t‘strstr(strl  ,str2) 
cbar  *strl,t‘str2; 

{ 

int  i,strllen,str21en; 

strllen=strlen(strl) ; 
str21en=strlen(8tr2) ; 

for(i=0  I  i<8trllen-str21en  ;  i++) 

if  (8tmcBp(8trl+i,Btr2,str21en)==0) 
r«turn(  strl+i  ); 

return(IULL); 

> 


C.2.10  Listing  of  LOGB  C 

/*  Reads  a  ran  floating  point  complex  data  file.  Outputs  a 
log  magnitude  bjte  inage. 

♦♦♦*♦•  notice  ♦  *  ♦  »  * 

Tuis  material  vaa  praparad  aa  aii  ._ccouat  of  worn  sponsored  by  xne 
United  States  GovermBent .  neither  the  United  States ,  nor  the 
Pepartment  of  Energy,  nor  the  Department  of  Defense,  nor  any  of 
their  employees,  nor  any  of  their  contractors,  subcontractors,  or 
their  employees,  naXes  any  warranty ,  expressed  or  implied,  or 
assumes  smy  legal  liability  or  responsibility  for  the  accuracy  , 
completeness,  or  usefulness  of  any  information,  apparatus,  product, 
or  process  disclosed,  or  represents  that  it>i  use  would  not  infringe 
upon  privately  owned  rights, 

author  :  Thomas  D.  Sullivan 

Sandia  national  Laboratories 
Division  -  91.33 
Albuquerque,  HM  8718R-6800 
May  3,  1991 


Sets  PMAl  dBsm  at  2&S  and  0  at  PRnC  dB  bilow  PMAX 

compile:  cc  -o  logb  logb.c  -lu 
usage:  logb  <  in_file  >  out_file 

*1 

#include  <8tdio.h> 

Winclude  <math.h> 
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«defiDe  PNAK  30 
Adeline  PRMG  60 

main(argc ,argv) 
int  arge; 
char  ♦argv [] ; 

■C 

float  scale. offst, tmp, in[1024] : 

int  actual,!; 

unsigned  ch2ur  out  [5 12]; 

scale  =  2SS0.0/PRKG  ; 

off St  =  scale  ♦(PRHG-PMAX)/10.0  ; 

uhile(actual  =  freadCin.sizeof (float) ,1024, stdin))  { 
for(i=0; i<actual/2; i++)  { 
tmp  =  in[2*i]  ■»in[2*i]  +  in[2*i+l]*in[2*i+l] ; 
if(tmp  >  0,0)  { 

tmp  =  scale  *  logloCtmp)  *■  offst; 
if  (tmp  >  266.0) 
tmp  =  265.0; 
else  if  (tmp  <  0.0) 
tap  =  0.0; 

> 

out[i]  =  tmp; 

> 

fvrite(out ,1 , actual/2, stdout) ; 

> 


a2.n  Listing  of  EXTRACT.  C 


/♦•*  MCT  BLOCKS  PROGRAM  •*/ 

*<»***it  e*,*«**«*«*>f*»***««***««««*+«««*****«*«>»***e«****e*:«e/ 

/*  DATE:  12  oept  91 
VERSIOR:  1.0 
NAME:  extract. c 

DESCRIPTION:  This  program  generates  data  vectors  from  nultiresolution 
decomposition  coaificienx  files  for  use  in  Dan  2ahi''niak'8  Radial 
Basis  Function  neural  network. 

FILES  READ:  Detail  signal  files  of  various  levels  and  a  lower  level 
multiresolution  approximation  file.  A  vector  file  containing  locations 
on  the  original  image  of  desired  feature  extraction  locations. 

FILES  WRITTbJ’  A  file  called  block.#  will  bo  generated. 

HEADERS  USED:  <Btdio.h>,  "macros. h",  "jsmacros .h" ,  "stowmath .h" 

CALLING  PROGRAMS:  ilONE 

PROGRAMS  CALLED;  normalize. c 
AUTHOR:  Steve  Smiley 
HISTORY:  Initial  Version 

*/ 

/•eeeeeeeeeeevveeeeeeveeee/ 

/*  DECLARATION  SECTION  ♦/ 

/♦«'♦♦♦♦♦♦♦»*•»*♦•♦••♦*****/ 

Sinclude  <std.''.o.h> 

#include  "::kaczo6.h'' 
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#include  "jsmacroF  .h'' 
#include  "steraath.h" 
tinclude  "nrutii.h" 

void  normalizeAC) ; 


/♦  Mill  PROGRAM  BrDY  */ 

/♦1'  +  +  *  +  +  *>»***4:%*4^****  +  */ 


ttainO 

/****if**^*tk*m*******i-*4**/ 

/*  declare  variables  <•/ 
/***’<, 


float_vector 

lloat_airay 

int 

int 

int 

int 

int 

float 

char 

char 

char 

char 

FILE 


coefficient,  temp; 
temps, holder; 

•  *r.oosrdinates; 

ii  j,  k,  l,n,  osanple.size.nsample.size,  maxlevel,  ROV.position; 

COL_position,aRCW,aCQL,nuBber_ol_cooidinates; 

oROW,  oCOL , nROW , nCOL ,  oiiaage_sjze,nimage_size; 

level , image..s ize ,  class , &izer=l ,dsize , counter ; 

biggest; 

infil4na'aer64]  ,  inf  ilename2C64]  , 
done=’n' ; 

filename  [64]  ,tenipname[64]  ,wave_type[10]  ; 
imagc_name[34] ,  output [64] ,coef_type[B] ,outputfile[64]  ; 

♦outfile,  *infile,  *infile2; 


coordinates  =  inatiix(0.  200,  0.  2); 


/*  User  Input  Parameters  ♦/ 


printf("\n\n  Input  the  name  of  the  file  of  the  decomposed  \ninage:"); 
scanfC'Xs",  infilaname); 

ioopi(64) 

tempna«e[i]  =  infi].ename[i]  ; 
loopi(64) 

if  (inf ilenaine[i]  ==  tenpneuBe[ij  =  ’ 

sscanf (tempname,  "%s  Xd  Xd  Xs  Xs",  image.name, 

Roi»age_size,  Rlevel,coef..type,  ware^typo); 

printf("\n\n  Input  the  number  of  sample  Lobs  in  the  area  of  interest"); 
printf ("\n(The  number  must  a  power  of  2):"); 
sc2uif  ("Xd".  toi  am'^le  size) ; 

/<■  Read  in  vectors  of  feature  directions  ♦/ 


printf ('‘\alnput  the  name  of  the  vector  file:"); 
scant ("Xs",  inf ilenamea) ; 

0PEN_FILE(infile2,  inf ilenaiie2 ,  "The  Center  Progrcjn") 
f scant (inf ile2,  "Xd",  Rnumber.of _coordinate8) ; 

loopij (nuBber_ol_coordinateB,  2) 

fscanf (inf ile2,  "Xd",  RcoordinatesCi]  [j]) ; 

CL0SE„FILE(i,  filename,  "The  Center  Program",  infile2) 

printf("\n\n  Input  the  class  number  (integer):"); 
scant ("Xd",  Rclass); 

printf ("\nlnput  the  name  of  the  output  file:  "); 
scant ("X»".cutputfile) ; 


sprintf (output,  "*/is .’/.d" , outputl ile, class ) ; 

CREATE_FILE(outliXe,  output,  "The  Center  Progr^un") 

/ee«e««*******e**4i4i«ee^ee')*e***e*4>******e***e4*e«e***4ie«e*e4>e*«e*ee%e<f 

/♦  change  sizes  from  original  image  to  image  sizes  of  level  of  interest  +/ 

naxlevel  =  L0G2(oimage_size) ; 
if  (roaxlevel  >  5)  maxlevel  =  E; 

loopi(level) 
sizer  *=2; 

ns2uaple_size  =  osample.size/sizer; 
nimage.size  ^  oimage_size/sizer; 

/♦  allocate  memory  ♦/ 

/•♦♦*•*♦♦♦♦**•♦♦*»*»♦♦*«*/ 

temps. ROW  =  nsampla.size; 
temps. COL  =  nsample_size; 

temps. array  =  matrix(l,  temps. ROW,  1,  temps. COL); 
looplijCtemps. ROW, temps. COL)  temps.array [i] Cj]  =  0.0; 

holder. ROW  =  nimage.size; 
holder. COL  =  nimage.size; 

holder. array  =  matrixCl,  holder. ROW,  1,  holder. COL); 
looplijCholdcr. ROW, holder. COL)  holder.array [i]  [j3  =  0.0; 


/♦  Read  in  sampled  areas  and  store  into  arrays  ♦/ 

/eee«ee*«e«*****«ee*ee*ee***eee*eeee«eeeeeeee**«e/ 

0PEM_FILE( infile,  inlilename,  "The  Center  Program") 
looplij(nimage_size,  nimage.size) 

Iscanf (inf ile,  "Xf",  tholder . array [i] Cj] ) ; 

CLOSE_FILE(i,  filename,  "The  Center  Program",  infilc) 
normal izeA (holder . array , holder . ROW , holder . COL) ; 

/*  begin  data  extraction  e/ 
loopiii(iiU!!!h'Sr_of  _r.ooT-dinate8)  f 
oROW  =  co:rdinates[m] [0] ; 
oCOL  =  coordinates [m]  [1] ; 

nROW  =  oROW/sizer;  if (oROWy.sizer  !=  0)  nROW  +=1; 
nCOL  -  oCOL/sizer;  if  (oCOLy.sizer  !=  0)  nCOL  +=1; 

printf("%d  '/.d  7,d  7,d\n",  nROW, nCOL, nsample.size, niBage_8ize)  ; 

/♦  Put  put  the  vectors  to  a  file  ♦/ 

loopi jCnseunple.size.nsam^  le_size)'{ 

ROW.position  =  nROW  +  i; 

COL.position  =  nCOL  +  j ; 
loopkl(6,8){ 

aROW  =  k  +  ROW_position  -  2; 

aCOL  =  1  +  COL_position  -  2; 

if (aROW  >  nlmage.size)  aROW  =  nimage.size; 

if(aC0L  >  nimage.size)  aCOL  =  nimage.size; 

if (aROW  <  1)  aROW  =  1; 

if (aCOL  <  1)  aCOL  =  1; 

fprintf  (outlile,  '‘’/.f  ",  holder  .array  CaROW]  CaCOL]  *3); 
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Rsi 


ifdc  ==  4  1  ==  4) 

fprintf (outlile,  "\ny.d\n",  class); 


} 


Listing  tf  NORMALIZEA.C 


/***  inRMALIZE  AK  ARRAY  PROGRAM  ♦♦/ 

/*t********^i*********’^******^t**t************  .♦♦**♦*♦*•*♦*♦♦**♦***♦*♦♦♦*♦*♦/ 

/*  DATE:  IS  Aug  91 

VERSIQI:  1.0 
WAME:  normal ize A. c 


DESCRIPTIOR:  This  program  will  normalize  a  set  of  data  vectors  used 
in  the  RBF  netnork. 


FILES  READ:  Detail  signal  files  of  various  levels  and  a  lower  level 
multiresolution  approximation  file. 

FILES  WRITTEN:  A  file  called  vector.#  will  be  generated 
READERS  USED:  <stdio.h>,  ''macros .h" ,  "jsmacros .h",  "stewmath.h" 
caLLIiiu  PHUGHiinb;  vector  or  sampler. c 
PROGRAMS  CALLED:  NONE 


AUTHOR:  Steve  Smiley  k  Stewart  Laing 
HISTORY;  Initial  Version 


*/ 


/*0m********^****i*t**^*******************^*tr^*^**4’¥****t***>lr****‘’¥******t’*/ 

/*  DECLARATION  SECTION  */ 


#include  <stdio,h> 
#include  "macros. h" 
^include  "jsmacros.h" 
Ahinclude  <math.l> 


^  _ _ _ _  nmr  > 

Alux  meiJL  vcLL  4.  ajr_^  v-x  •  mjw  , 

float  ♦varray_ptr; 
int  ROW , COL ; 

•c 

/*  declare  variables  */ 

float  bluest; 
int  i,j; 

/'•  Find  the  largest  value  in  the  vector  */ 

biggest  =  0.0; 
looplij(ROH,COL) 

if(labs((double)array_ptr[i3[3])  >  biggest)  biggest 
=  f abs ( (double) array_ptr [i] [ j] ) ; 

/^t***********m*******<^**^‘iH‘*****t*****’¥*if***/ 

/*  Normalize  vector  */ 

**«•»**•«•*****/ 

looplij(ROW.COL) 
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array_ptr[i]  Cj]  -  array_ptr[i]  [j] /biggest; 


> 


as.  13  Listing  of  CENTER.C 


/***  CEHTER  BLOCKS  PROGRAM  ♦♦/ 

/  it********ii^*^tif^*t*************t*******‘m************i****^*****it***^*^‘**^.f**^/ 

/♦*♦*♦♦♦♦*  +  *  +  *  ♦♦♦♦♦♦♦♦if  ♦♦♦  +  ♦♦♦♦#*♦  ♦♦♦♦**ifr*********  +  ^  +  ****^  +  ****%**:(i*#****4c*:»/ 

/♦  RATE:  23  Aug  91 
VEhSIOH:  1.0 


NAME;  center. c 


DESCRIPTION:  This  program  generates  data  vectors  from  multiresolution 
decomposition  coefficient  files  for  use  in  Dan  Zahirniak’s  Radial 
Basis  Function  neural  network.  The  training  data  is  extracted 
from  large  blocks  or  areas  of  the  image . 

FILES  READ:  Detail  signal  files  of  various  levels  and  a  lover  level 
multiresolution  approximation  file. 

FILES  HRITTEM:  A  file  called  block.#  will  be  generated. 

HEADERS  USED:  <etdio.h>,  "macros. h",  " j smacros . h" ,  "stewmath.h” 
CALLING  PROGRAMS:  ROIE 
PROGRAMS  CALLED:  normalize. c 


*/ 


AUTHOR:  Steve  Smiley 
HISTORY:  Initial  Version 


/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦f  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦«>♦♦♦♦♦♦♦  ^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^♦♦♦iffif^^^if^fift^^if^if/ 


/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦»♦♦> 

/♦  DECLARATION  SECTION  */ 
/♦♦♦♦♦♦♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦#♦/ 


#includo  <stdio.h> 
#include  "macros. h" 
flinclude  "jsmacros.h" 
#include  "stewmath.h" 
#include  "nrutil.h" 


void  normalizoAO’ 


/♦  MAIN  PROGRAM  BODY  ♦/ 

/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

nain() 

■C 


/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦•♦/ 
/♦  declare  variables  ♦/ 
/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦+♦♦♦♦♦/ 


f loat_vector 

float_array 

int 

int 

int 

int 

float 

char 

char 

char 

FILE 


coefficient,  temp; 
temps , holder ; 

i,  j,  k,  1,  OBample_size,nsample_size,  maxlevel,  ROW^position; 
C0L_pos ition , aROW , aCOL ; 

oROW,  cC0L,nR0W,nC0L,  oimage_size.nimage_size; 
level , image_size ,  class , 3izer=l ,dsize, counter ; 
biggest ; 
infilename [64] ; 

f ilenane[64] ,tempname[64] ,wave_type[103 ; 

image_namo [34] ,  output [64] ,coef_type[6] .outputf ile[64] ; 

♦outfile,  vinfile; 
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/♦  User  Input  Parameters  ♦/ 

printf("\n\n  Input  the  name  of  the  file  of  the  decomposed  \nimage:"); 
scanf C'/.s" ,  infilename); 

loopi(64) 

tempnameCi]  =  inf ilenameCi] ; 
loopi(64) 

if  (inf ilenameCi]  ==  tempnameCi]  =  ' 

sscanf  (tempname,  ‘"/,s  y,d  V.d  y.s  y.s",  image.namo,  ftoimage_si2e, 
tlevel,  coef_type,  wave_type); 

printf("\n\n  Input  the  number  of  sample  Rows  in  the  area  of  interest"); 
printf ("\n(The  number  must  a  power  of  2):"); 
scanf("5(d",  tosample_si2e)  ; 

printf ("\n\n  Input  the  pixel  coordinates  of  the  top  left  hand\n 
corner  of  the  regicn  of  interest  in  the  original  image  (row  col):'); 
scanf("y.d  y.d",  AoROW,  toCOL) ; 

printf ("\n\n  Input  the  class  number  (integer);"); 
scanf ("y.d",  Aclass); 

/*  change  sizes  from  original  image  to  image  sizes  of  level  of  interest  */ 

maxlevel  =  L0G2(.oimage_size) ; 
if  (maxlevel  >  5)  maxlevel  =  5; 

loopi(level) 
siZ^lT  * 

nROV  *  oROW/sizer;  if  (oROW’/.sizer  !=  0)  nROW  +=1; 
nCOL  =  oCOL/sizer;  if (oCOL'/.sizer  !-  0)  nCOL  +=1; 
nsample_size  =  osample_size/sizer ; 
nimage_size  =  oimage_size/si2er ; 

printf  ("y.d  '/.d  '/.d  y,d\n",  nROW, nCOL, nsample.size, nimage.size)  ; 

/ ♦  allocate  memory  ♦/ 

holder. ROW  =  nimage_size; 
holder. COL  =  nimage_size; 

holder. array  =  matrix(l,  holder. ROW,  1,  holder. COL); 
looplij (holder. ROW, holder .COL)  holder. array Ci] Cj]  =  0.0; 

temps. ROW  =  nsampl6_size; 
temps. COL  =  nsample_si2e; 

temps. array  =  matrix(i,  temps. ROW,  1,  temps. COL); 
looplij (temps. ROW, tem;)s.C0L)  temps . array Ci] Cj]  =  0.0; 

/*  Read  in  sampled  areas  and  store  into  arrays  */ 

/  ***^*^t***************.***********f  ***************/ 

0PE1I_FILE (infile,  infilename,  "The  Sampler  Program") 
looplij (nimage.size ,  nimage_size) 

f scanf (inf ile,  tholder. array Ci] Cj]) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 
normal ize A ( holder . array , holder . ROW , holder . COL) ; 

printf ("\nlnput  the  name  of  the  ou^p-'-^  file:  "); 
scanf  ( ’y.s"  ,outputf  ile) ; 
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sprintf  (output ,  "‘/.s . */,d" ,  outputf ile ,  class) ; 

J*  sprintf  (output,  "trainblock. '/.d",  class) ;  +/ 
CREATE..FILE(outf ile,  output,  "The  Center  Program") 

loopij  (nsample_size  n'jample„size)-[ 

ROW_position  =  nR JW  +  i; 

COL_position  =  nCOL  +  j ; 
loopkl(3,3){ 

aROU  =  k  +  ROW_position  -  1; 

aCOL  =  1  +  COL_position  -  1; 

if(aR0W  >  nimage_size)  aROW  =  nimage.size; 

if(aCOL  >  nimage_size)  aCOL  =  nimage_size; 

if (aROW  <  1)  aROW  ^  1; 

if (aCOL  <  i)  aCOL  =  1; 

fprintf  (outf ile,  "*/,f  ",  holder.zaray  [aROW]  [aCOL3*3) ; 

if(k  ==  2  «  1  ==  2) 

fprintf  (outf  ile,  "\n'/,d\n".  class); 


} 
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